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PEOPLE’S COMPUTER COMPANY 
fs published 5 times during the school 
year. Subscriptions begin with the 
first issue, October 1972. 
Single subscriptions — $4 for § issues 
[$5 Canada and overseas] 
Group subscriptions, mailed all to the 
same address — 

10 or more $3.00 each 

30 or more $2.50 each 

100 or more $2.00 each 


Subscription coupon on back cover 
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Cover ant by Manie Mancho reprinted corteay JF Wasser NEWS © 1967 


!f1!! FOR PCC SUBSCRIBERS ONLY TI!!! 


FOR A MERE PITTANCEs WE WILL SEND YOU TAPES 
OF GAME=PLAYING OR OTHER PROGRAMS THAT HAVE 
OR WILL APPEAR IN PCC. HERE ARE THE PRICES.» 


*PROGRAM* *ISSUE + PAGE* *PRICE* 


NUMBER OCT 72, PG 8 $1 FOR BOTH 
LETTER OCT 72, PG 11 
STARS DEC 72» PG 3 $1 
MELODY DEC 725 PG 17 $1 
TRAP FEB 73, PG 8 $1 
CHOMP FEB 73» PG 9 $1 
MUGWUMP APR 73, PG 3 $1 
HURKLE APR 73» PG 22 $1 
REVERSE NEXT ISSUE $1 
4k ry] eK 
* MINIMUN ORDER $2.00 * 
KKK sok 
well, hobody's 
ba ie 


tlit! FOR PCC SUBSCRIBERS ONLY II!!! 


WORKSHOPS IN COMPUTER SCIENCE 


Instructors: ROBERT ALBRECHT, People’s Computer 

Company and LEROY FINKEL, Ravenswood High School 
Schedule: March 31—Apri! 1;9 a.m, — 10 p.m. Saturday; 9 a.m. — 
6:30 p.m. Sunday; Lawrence Hall of Science, Berkeley campus 
Credit: Two quarter units in Computer Science, each course 

Fee: $65 each course, includes laboratory fee and some materials. 
Enrollment is limited 

For information telephone 642-1061 in Berkeley 


Computers in the Classroom X 402A (2) 


An intensive “‘hands on” introduction.to the use of calculators 
and computers in elementary and secondary school education. 
Participants use programmable calculators and learn the pro- 
gramming language BASIC, using both timesharing terminals 
and small computers. Methods for effectively using computers 


_ in the classroom and analysis of available hardware, instruc- 


tional materials, computer education programs, and sources 
of further information. The course is conducted as an open 
classroom with activity centers for mathematics, science, 
business education, and social science teachers. It spans all 
grade levels — elementary through college. No previous pro- 
gramming or data processing knowledge is necessary. 


Computers in the Classroom: 
Individualized Instruction X 402B (2) 


This course is a continuation of Computers in the Classroom 
X 402A, and it gives participants the opportunity to increase 
their computer problem-solving skills. The course is run con- 
currently with X 402A, which is a prerequisite. 


Games Computers Play X 407 (2) 


Spend a weekend matching wits with a computer. Participants 
play computer games and explore both real life and ‘worlds 

of if’ through the medium of computer simulation. Games of 
skill, games of chance, and games to learn by. Computing 
equipment is available throughout the course. No previous 
computer experience is required. The course is run concur- 
rently with Computers in the Classroom X 402A and B. 
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_in the country,” sit*of the first New Schools Conference ~ 


LEARNING FAIRS and FUTURE FESTIVALS 


The story starts like this: 


It happened at Peninsula School, a forty-seven-year-old 
family-staff-owned cooperative, the “oldest free school 


in 1969. - 

What was it? Fifteen “workshops and playshops” — 
Bead Game Music, Kids Teaching Kids, Gestalt Smorgas- 
bord... —and forty ongoing events — Mobile Solar 
Sculpture, People’s Computer Center, Tree Loom, the 
Alexander Technique.... All spread over two days 
and sprinkled among the oak trees of the six-acre school 
site and the rooms within Peninsula’s main building, a 
green Victorian mansion. ‘Come together as participators/ 
innovators,” read the announcement. 


and ends like this: 


While Lam still cutting up bookshelves, the fair comes 
to its close. Iam reluctant to leave it, and I realize 
why: I have reopened doors into ways of learning 
that I had shut or that had been closed upon me years 
ago. 
For Tama product of that educational process by 
which we are systematically and deliberately weaned _ 
away from what Jerome Bruner called the “left-handed” 
(visual, intuitive, imaginative) and toward the “right- 
handed” (verbal, rational, logical), that process which 
separates one kind of learning from another and rates 


i 


© 


each in terms of its usefulness to society and not to 


the individual. 

That may be changing now in many schools for 
many younger children. But we adults and older 
children need support, encouragement, what Barney 
Young called “loosening up,” to open the doors 
again—to realize that a variety of “life games” are 
equally important parts of our education. And that 
sort of encouragement a “learning fair” can provide, 
At Peninsula’s fair the children were there as our 
guides, making creativity look natural and easy as 
pie. We learned from them that weekend. But for 
me it was only a start. 
from “Learning Fair’ by Susan Sands, Saturday 

Review of Education, January 1973, pages 
37-41. 

Saturday Review of Education, Box 2043 
Rock Island, Illinois 61207 


If you missed the Super Ecstatic Completely Credible 
Learning Fair at Peninsula School last October — you 
can still make one of these this spring. 


TO TOUCH TOMORROW: FUTURE FARE 


“The merit of the future is that it is the area in which 
we can exert our will.” 


Bertrand de Jouvenal 


If you feel with de Jouvenal that we don't have to 
accept the future as “fixed,” then join us on March 
30-31 and experience with us some of the exciting 
(and frightening) developments which are shaping 
our futures, Experience with us also the possibility 
of creating alternative futures to “‘the future” that 
you might feel is being imposed on you. 


We begin on Friday afternoon, March 30, with a series 
of films to be shown in Olney Hall. Among the films 
you will see are: 
“The World of Future Shock: Crisis in the 800th Life- 
time” in which Alvin Tofler, author of Future Shock, 


examines the concept of “future shock” and the stress 
placed on individuals by a society in constant flux. 


“The Family of the Future” looks at 3 different family 
lifestyles today which may be typical styles for tomor- 
row. The film is narrated by Margaret Mead. 


Thero will be many others. These films will also be 
shown Saturday. 


Friday evening at 8:00 PM in Olney Hall, Arthur C. 
Clarke, author of Profiles of the Future and many 
other books about futures, will speak on “The Year 
2001 and Beyond.” 


Saturday, March 31, is Future Fare Day. Our environ- 
ment will be Harlan Center and its adjacent vutside 
spaces, Come play with a computer from the People’s 
Computer Co.; imagine with Aaron Hillman you re 
Lost in Space; participate in The Future State of the 
Nation with Paul Twelker and Ken Layden; join Gloria 
Loventhal and her elementary school children in their 
“School 2000; build a dome with Toni Ricci: eat with 
the One World Family Commune; ponder the prospects 
of Immortality with Chad Everone. These are just 

a sampling of the exciting events in sture for you. So 
come, Touch Tomorrow, 


ALTERNATIVES LEARNING FESTIVAL 
A CELEBRATION 


We at Webster College, in conjunction with the alter- 
native schools in St. Louis, will be sponsoring a 
National Festival on Alternatives in Learning, to be 
held in St. Louis on May 3—6. Our hopes for holding — 
such a festival are many; however, our specific aims 
are to learn more about ways we can humanize the 
diverse educational needs of an ever-changing and 
increasingly complex society. 


The scope of ALF will be between 5,000-—10,000 
people from all over the nation. Some of the better 
known speakers so far are: Swight Allen, University 
of Massachusetts School of Education; Nate Blackman, 
Principal of Chicago Metro Alternative High School; 
Don Glines, author of Creating Humane Schools; 
Joh Kozol, author of Free Schools; and Don Moore, 
Midwest Center for New Schools. 


ALF will revolve around a “Learning Bazaar,” to be 
run by teachers, administrators, parents, students, and 
others involved in the creative learning experience. 


Booths will focus on individualized experiencing... 


Workshops will focus on group experience - - doing, 
thinking, creating... 


Anyone interested in presenting a workshop, group 
session, learning shop, or other alternative involvement, 
at the FESTIVAL, or anyone desiring additional info, 
please call Webster College, (314)968-0500, ext. 400. 


Webster College 
470 East Lockwood 
St. Louis, Mo. 63119 
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for more info, contact Ms. Sydney Goldstein 
Director of Public Events 

ZA College of Marin 
Kentfield, CA. 94904 
(415)454-3962 


ae ae es A mae 
AIO ?.: : 
Recently | was modifyin jon an 
g a program we had on an 
HP 2000F system. A simplified version of the pro- 
gram would look. like this: ‘ ti 


108 REM 1 
150 REM 2 
“380 REM 3 
350 REM 4 
400 REM 5 
450 REM 6 
$60 REM 7 
550 END 


| wanted to move lines 400 and 450 to before Line 
300 so that the program would look like this: 


160 REM 
150 REM 
200 REM 
250 REM 
398 REM 
350 REM 
S@0 REM 
558 END 


VEOKUN 


So | innocently typed 


REN = 200.5. 58s 408. 458 


(i.e., “Renumber Lines 400 through 450 b ff 

: n y 50's, 
starting at Line 200” for those of you who are 
unfamiliar with HP BASIC.) 


And the computer typed back 


RENUMBER SEQUENCE OVERFLOW/OVERLAP 


(Whatever that means) | assumed that the computer ‘ 
was refusing to perform this trivial operation and 
proceeded to do it the hard way. Here’s how it looks 
(assume the program’s name is PROG). 


GET-PROG 

NAM-T1 

DEL-300.550 

SAV : 
GET-PROG : . 
NAM-T2 
DEL=10065350 - - ..._. 
DEL-5¥0,55a - --- 
REN-208 55054005450 
SAV : 
GET-PROG 

NAM-T3 ee 
DEL-1002153 ante” 
DEL-488,450 

Sav sina 

SCR 

NAM=-PROG 

APP-T1 

APP -T2 

APP-T3 

KIL-TI 

KIL-T2 . 
KIL=-T3 

KIL=PROG 

SAV 


Come on HP, that’s 27-lines | had to type instead of 
spending my time on something useful. Not only that, 
it could have been done with just one command, if 
HP’s software was written properly to begin with. 


Some day computer manufacturers are going to learn 
that computers are for people to use, and not the 
other way around. 


That day will come only when computer users take it 
upon themselves to pull themselves out of their 
apathetic morass of ignorance of what computers 
could be doing for them, and demand their rights as 
consumers. If you read the label on a 25¢ can of soup 


why not read the “label” on a $100,000.00 computer 
system 


P.S, It matters not to the poor user if there is some 
undocumented “'secret’”’ way to do what he or she 
want. 


A graffiti found at Resource 1 is quite lucid on this 
point: 


q 
100 REM see HUGWUMP - A HIDE AND SEEK GAME 7 
110 REM eee PE@PLE’S COMPUTER COMPANY.» MENL® PARK CA , 
120 RANDOM 
130 REM #66 GeGRID SIZE NeNUMBER GF GUESSES ALLOVE 7 
140 LET G#l0 
150 LET Nes " ° 
360 PRINT “D@ YOU WANT THE RULES CfaYES Oeng>™s b 
“170 «INPUT 2 
160 IF Z <> 1 THEN 350 
190 REM eee RULES IN LINES 200 THRU 330 5 
200 PRINT “A MUGWUMP IS HIDING IN A™JGS™BY"sGS"GRID. TRY TO” 
ero 


230 PRINT “NUMBERS (O Te"3G-15%) SEPARATED BY A COMMA. THE FIRST™ 
240 PRINT “NUMBER IS THE DISTANCE T@ THE RIGHT OF HOMEBASE~ . 
_ 250 PRINT “AND THE SEC@ND NUMBER IS THE DISTANCE ABOVE THE™ 3 


270 PRINT “1S HIDING B UNITS T@ THE RIGHT OF H@MEBASE AND™” 2 
280 PRINT “3 UNITS ABGVE HOMEBASE, THEN ENTER 8.3 AS YOUR" 


300 PRINT / 


320 PRINT “TELL YOU HOW FAR CIN A DIRECT LINE) Ye@U ARE FREM™ 
330 PRINT “THE MUGWUHP. ~ 
340 KEM eee HIDE MUGWUMP AT RANDGM GRIDPGINT A+B 


360 LET BaINT(G*RND(O)) 


380 PRINT “MUGWUMP IS HIDING. Yeu GET™SNs “GUESSES.” 
390 REM ¢¢e N GUESSES ALLOWED - LINES 400 THRU 560° 


410) PRINT 


430 INPUT X-¥ 

440 REH ¢e@ IF MUGWUMP NOT FOUND G6 Te LINE 500 
450 IF X <>» A THEN 520 

460 IF Y <> B THEN S20 

470 PRINT “YOU FOUND HIM IN“) TI*GUESSESILI” 

480 PRINT “LET*S PLAY AGAIN.” 

490 PRINT 

$00 GeTe 350 Ps 

S10 REM e¢¢ DeSTRAIGHTLINE DISTANCE T@ MUGWUMP 
S20 LET D=SOR((X-A)s2¢C(Y-B) 12) . 
530 REH ¢e* THEN WE ROUND D T@ ONE DECIMAL PLACE 
$40 ‘LET DeINT(10002710 

SSO PRINT "YOU ARE’sDs"UNITS FROM THE HUGWUMP.” 
360 NEXT T 

570 REM #¢e MUGWUHP NOT FOUND IN N GUESSES 

$80 PRINT 

390 PRINT "SORRYs THAT'S”sJNs"1RIES.” 

600 PRINT "MUGRKUMP IS AT GRIDPOINT “sAS%s"9B 
610 PRINT “LET'S PLAY AGAIN.” 


620 PRINT y, 
630 GeTe 350 ow spud 
END 


loecs to HELP You FwD Deedee 


36900 NEW MATH RULE-INDIVIDUAL. ..... . . $ 36 only. 


each side —- 1/10", 1/16", metric and number line. Accurate, easy-to-read Pocket Set (4) . . . . . $2.40 
calibrations, Dozenblack. . . . . . 86,00 


@ £ 2 PUBLICATIONS 


TM. 


MUGWUMP 


PRINT “FIND KIM BY GUESSING H1S GRIDPOINT. H@MEBASE IS™ 
IND A GUESS 


Ss 
PRINT “GRIDP@INT 0.0 A IS A PAIR GF WKELE” Y 


PRINT “HOMEBASE. FOR EXAMPLE, IF YOU THINK THE MUGWUMP” 
PRINT “GUESS AND PRESS THE ‘RETURN® KEYe” 

PRINT “YOU GET" JNI"GUESSESe AFTER EACH GUESS» I WILL” 
LET AsINTCGeRNDCO)? ~ 


PRINT 


FOR Tal TON 


PRINT “WHAT IS YOUR GUESS") 


ae ; @ Larger grid... Smadl 79 : 

LF Change grid ste Ga Lin 140 

© Mores quran... feaser cutest ? 
Plies. Wighthot Gitta N 
in UX ISO. 


HUswup wes tapered by Pujed Soto MAL #ozot. 


Contech Project er rhe Departed, 
Unisensile ° Pi Hs bugle 16213. 


Buy then Fron 
3 Y , 


9 CREATIVE 


7Or make Hhew 


_ P.O. BOX 10328 yourself ve 
PALO ALTO, CALIFORNIA 94303 


Business Office — (415) 968-3977 
Product Development and Teaching Center — (415) 968-1101 


‘TRANSPARENT GRIDS (INCH & CM) 


Flexible, transparent acetate grids for many 
different purposes, Measure area by placing 
grid over plane figure. Put blocks on top of 
grid. Demonstrate fractions, decimals, area 
| relationships on the overhead projector, Make 
charts, graphs, etc.—then wipe them clean! 
Two kinds of grids available—10" x 10" VIS-A-VIS PENS 

ruled in inches or 25 cm x 25 cm ruled in Visual aid pens for overhead pro- 
centimeters, jector transparencies which write 


CIRCLE MASTER COMPASS 
34100 = Circle Master Compass—Individual 


smoothly and evenly on all acetates. 

36500 Transparent Cm Grids — Bright, transparent colors do not change 
(Pkg. of 10)....... $3.25 during use. Easy to ell tem 

37000 ids — acetates; washable from hands an 
F ieee altho $3.25 clothing; non-toxic and  adorless. 


Available in Pocket Set (one each of 
the four colors — black, red, blue and 
green) or in boxes of a dozen in black 


Durable four-in-one ruler made of plastic. Has four scales — two on 38450 VIS-A-VIS PENS 


-., Sat. Jan. 8, 1972 
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2 At ‘One’ 


‘ Warehouse 


By Thomas Albright 
Except for its hot mustard 
exterior paint job, the im- 
Mmeose, six-level building at 
the corner of Tenth and How- 
ard etreets looks Uke any of 
the older warehouses and 
Night industrial plants that 
form most of the surrounding 
neighborhood. 

Once inside, however—via a 
door marked simply, “One” 
— you plunge Into an utterly 
mind-boggling complex of 
winding corridors and {ree- 
form rooms, and of free-form 


studio space in a charateris- 


South of Market garage- 


fully equipped television and 
radio studios; film, photo, 


; and a staggering varicty 
af other, continually evolving 
and overlapping activities, 

ACTIVITIES 

‘These activilies are the 
work of some 200 people and 
0 organizations who are in- 
volved in “One” on areguiar 
basis, and who range from 
students and recent universi- 
ty graduates and drop-outs, 
to PhDs, electronics special- 
ists and other highly trained 
professionale whohave 
pulled out of tho normal 
Stream of economic life to 
Join in a cooperative sharing 
of talent, experience and 
physical resources. They 
bring with them not only 
knowledge and skill, bat of- 
ten costly and highly special- 
fred technological hardware 
as wel 

A year and a half old, 
"One" js the senlor member 
of a loose network of similar 
warehouse ‘“'projects" that 
has already grown to include 
@ Jarger “Artaud,” at 17th 
and Alabama streets, and 
several smaller complexes. 
In the works are others in 
= Franelsco and the East 

ay. 

The idea for One" origi- 
nated with Ralph Scott, an 
architect and engineer by 
training who was thea shar- 
ing space with a dozen other 
people in smaller warehouse 


quarters. : 
At its most practical lavel, 


Scott explained, the plan 
grew out of the fact that 
there were “‘a lot of people 
who needed to find an aller 
native way to deal with eco 
nomic problems, such as low 
income, or unwillingness to 
sacrifice their integrity for a 
reasonable salary. There are 
great numbers of poeple to- 
day who have talent, éxperi- 
ence and a command of 
money, but refuse to pay the 
price. There are others — 
people with master’s ceprces 
and PhDs — who simply 
can't find jobs.” 
ISOLATION 


"A second factor Is isola- 
tion, which makes poeple liv- 
ing in a city relntively incf- 
fective. People live ina high- 
ly compartmentalized world, 
with no flow or continuity be- 
tween one activity and ancth- 
er. Many creative people are 
victimized by the negative 
aspects of living In an urban 
environment and are unable 
to take advantage of its posi- 
tive elements, such as stimu- 
lation and sharing Ideas. 
Soine can't pay to keep a 
phone Installed to call across 
the city and find out whata 
friend fs doing.” 

Finally, Scott pointed out, 
“there 15 an aura of ciilism, 
and even mysticism, that 


surrounds the world of tech- 
no!ozy, and many of the arts, 
berause so many people lack 
access to equipment, training 
and other resources." 
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Reprinted from WORKFORCE (January and February, - 
1973), published by Vocations for Social Change, Box 13, . : z 
Canyon, CA. 94516. VSC is a tax-exempt, anti-profit 4 . 
collective subsisting entirely on your donations. = 


Pam Hardt and Bernard Greening for tho 
Resource One Collective. 


Repfource One is the only grassroots community 
group in the country that wo know of to obtain 
its own large-capacity computor system, Thay 


1 newsl 
iit aN i IN TE AA uUPT computer nase ba peace 


AT A CPP MEETING IN NEw YORK LAST MARCH (REPOR 
INTERRUPT 15) THE TePIC UTHE PBSITIVE USES OF COMPUTERS -LaRE 
THERE ANYAT! “aS DISCUSSED. THE PREVAILING OPINION SEEMED TO BE 
WELLe PAYSE S92, POTENTIALLY, FUT ASOT YETe RESSURCE ENE IS DOING 


ALL IT CAN T@ CREATE YEALITY FROM WHATEVER POTENTIAL THERE 1Se 
oF 


{ RESIURCE ONE 1S A COLLECTIVE OF PEDPLE FROM PAR 
BACKGROUNLS s KHO RELIAVE THAT TECHNSLAGICAL Teas can ee TUBLS 
SOCIAL CHAAGE WHEN eE'RE TRYING TO HELP 

COURAGE AND ASSIST 


CONTSOLLEO BY THE P 
THEM BECOME AVAILAGLE 19 ALL PEOPLES ARD tO En 
THE DEVELOPMENT OF WAYS THESE T@OLS.CAN IMPROVE ALL OUR LIVESs 
SUR PRINCIPAL TESL AT PRESENT IS AW xDS=940 , 
- COMPUTER, A 
MEDTUY SCALE, SECAND-GENEPATICN TIMES-IARING MACHINE WHORE CABABIL TIRES 
SEEM ELL SUITED TE QUR PURPOSES BECAUSE OF THE 9480'S ABILITY Te 


INTERACT KITH A LARGE NUMAEP SF INDIVIDUA! R 
(QVER TELEPHONE LINES) AND INEXPENSIVELY i TREE SCRE pL TEN Sit 


From ita inception, Resource One has boon 
houped in Projoct Ona,-San Francisco's first 
community in a warchouse. The first task of 
the four of us who doveloped Resource Onc was 
to first holp devolop Project One from June '70- 


In midsummer, 1971, Transamerica Computer 
Co. wags just a number in the telephone book, 
man we reached in their public relations dopt. 
said TA had "a warehouse full of computers," 
which turned out to mean throc Xorox Data 
Systems 940 computors returned by their loasa Ve, 
customers. (The XDS-940 is a timesharing computor, 
that can handlo many usors simultanocouoly overtly 
separate talophono linos. This feature is ideal 
for us because it allows community groups to ca 
use tha computer from thoir own location. Tho 
only equipment needed is a $45/month terminal.) 
TA was receptive bocause wa showed them the : 
potential for relating to many groups in San. 
Francisco and therefore they could got good p 
licity for making it all possible. 


a 
UW 
SOME OF BUR PRIMARY PROJECTS ARE THE BL Ni 
SYSTEY GEARED TH THE NEEDS OF NOX-ESTASLISHMENT REPEROAL Seay EUAt 
(SWITCHBUARDS» KOTLINESs €TCe) ENABLING THEM TO CREATE AND SHARE 
LARGE CATA BASESs THE ASSISTANCE UF VARIGUS GRASSROBTS POLITICAL 
AND ECANOWIC ZESEARCH PROJECTS AIMED AT COMMUNITY GRGANIZINGs THE 
CrEAP PROCUCTISN OF FAILING LISTS» A COMMUNITY MEDICAL CLINIC INFORMATION 
SYSTEM, A PROGPAM 6F COMPUICR E0NUCATIAN AND OEMYSTIFICATION FoR = 
THE GCNERAL PUALICs AND GENERALLY RAISING THE LEVEL OF COMMUNICATION 
AND COBPERATION APENG DIFFERENT COMMUNITY GROUPS. 
RESAURCE ONE'S 2981S GO SACK 19 BEAK 
CAMBODIA CRISIS 6F “AY 1979 A GRNUP OF CONEUTEN eroPree 
THERE GOT TOGETHER, LIKE THES, AND TALKEC OF THEIR DISENCHANTMENT 
RITr Wily THETR SKILLS WERT CESTINES F9R USE IN THE SYSTEMs THEY 
FANTASIZED ABNUT USING COMPUTERS FOR 4UILDING CAYMUNICATI8N NETHORKS 
AND SEVERAL MONTHS LATER ERE ATTRACTED TO PREJECT ONE IN SAN FRANCISCO 
SeHERE OTHER TECHNILOGICALLY@@RIENTED PEOPLE, AS KELL AS ARTISTS AND 
EX-PRIFESSIONALS OF ALL TYPES, WERE GATHERING Te TRY QUT A NEW CONCEPT 
SF INTEGRATING THETR SKILLS AND WORK 4ITH THE REST OF THEIR LIVES 


Oud 


plese! 


TA was also having troubla getting rid of 
their 940's because they originally cost $800,000 
seven years ago and are “second genoration.” 
Customers could now buy faster "third gonoration" 
machines for half that cost, ‘In September 1970, 
the deal with TA was approved by their top 
management, 


PROJECT BNE (BR 'IONE'') WAS A VACANT S-STARY Ww 

BUILCING IN D9WNTOWN SAN FRANCISC9--84,00C SQUARE FEET OF SARE, 
COLE CONCRETE» WHICH HAS S{NCE BEEN TRANSFORMFD INTO AN IMAGINATIVE 
WARREN QF TISPACES'! IN WHICH 90 PE@PLE LIVE AND 150 PEOPLE WARK ON 
A WIDE VARIETY QF PROJECTS. RESIDES RESOURCE SNE, THERE ARE AN 
EXPERIMENTAL HIGH SCHDSL, A VIDEQTAPE-PROOUCING GROUP, MUSIC AVD 
RADIO RECERDING/PRACTICE STUDI9Sy A FILM PROCESSING LAB, THEATER 
REHEARSAL SPACEs AND SFFICE AND/OR LIVING SPACE FA THE NORTHERN 
CALIFORNIA Hee OF VVany A RADICAL WELFARE DEPARTMENT KORKERS! 
_UNI@Ns A COUNSELING CENTER, AND NUMEROUS ART ANO CRAFT PEOPLE, 


L ENVIRONMENT WAS BUILT 


In November 1971, we rocioved $10,000 from 
the Stern Family Foundation, It wasn't easy to 
get. Resource One had a corporato identity 
(we took over the tax-exempt corporation fren 
the old San Francisco Switchboard) and a 
promiscd computer, but no cperating track~record. 
We were able to use the efrorts of the: Ecos 
Project--which was also helpiag other warchouse 
communities develop--and the demonstrable crad- 
ibility of the 150 people building, a living- 
working environment for thenselves at Project One + 
to show that wo were really serious and had a 
chance to succeed. Ecos initiated the Storn con 
tact, and convinced them that tochnology io an 
integral part of any now, viable urban cnviron- 
ment. Stovn granted a total of $25,000, which wo 
split) Ecos taking $15,000 cnd Resource One 
910,000. 


zeus ai aye a SOCIAL: AND PHYSICA 
ETELY BY [TS MEMCERS, T8 THEIR OsN SPECIFICATIONS, ANI 

IN THe PROCESS THEY SmAREO THEIR TAOLSy SKILLS AD POLITICAL IDEAS 
AS ONLY PEQPLE HU MUST DEPEND ON EACH ATER CANe A aSRKERS! 
CELLECTIVE HAS BEEN FORMED TO FURTHER CEVELOP AND PROFIT FROM NERLY= 
ACZUIFED CONSTRUCTIAN S<ILLSe THE Ca4MUNITY 1S ' RUN?! BY UNANIMOUS 
CONSENSUS) DECISIONS ARE MACE AT *EEKLY MEETINGS» 


THE FIRST YEAR 3F_''GNE'! WAS & KEEDING-OUT PROC al 
SALY Fam HARDT FROM THE ORIGINAL CERKELEY GROUP. PAM ‘al Cating 
See eee eonu ene §N THE PHONE TRYING TB LAND 
A OSNATION BF & MINT=CSMPUTERs WHICH CAULDC GE TAKEN ARQUND COMM 
FAR OF “2NSTRATISNS AND EDUCATIONAL EXP9SUSE. TRANSAMERICA CORMROTER 
C3. (UNSER eis KAS THE FIRST BITE» TA HAD 3 9480'S SITTING YNUSED 
is A SAREMBUSE, RETURNZEO FROM LEASE BECAUSE THEY HAD EEEN REPLACED : 
i) “NEWER PACHINESs ALTHAUGH THE 940 IS STILL BEING USED BY © 
cn “MERC TAL TIMESHARING SERVICE COMPANIES, THERE ARE FASTER, CHEAPER 
oko belts ine AVAILABLE wHICH MAKES THE 940 UNATTRACTIVE 
hE a L ‘S, AND THEREFORE 5 
TA RESPONDED Te Tee aac EREFARE '1@BSOLETE'! CA@MPERCIALLY. 
SF USING A CO¥PLTER DONATED BY THEM FAR AN INFERM 
JST : ATIGN/REFERRA 
SS NeEL SUED Beene ie ee GRAUPS (SHITCH99ARDS) INTO 
H *C E *GENCIES FOR: : 
PUBLICITY POTENTIAL FOR. Tue CINFGRMATIBNALLY), WITH GSD 


The money from Stern allowed us to begin 
the design and construction of the machine room, 
The computer needed a dust free, air-conditioned 
environment. We wanted it to be a visually 
accessible yot flexible shell. With the help of 
two architects in Ecos, wa finally drew up plans 
for a sheotrock structure with Lexan (a fire- 
retardant plastic) windows. 


SO, IN SEPTEMBER 1973 ®E HAD A COMPUTER, BUT NE MONEY 

NA SOFTWARE» NO 1/79 ECJIPMEKT, N@ PLACE T8 INSTALL. THE COMPUTER, 

NO GEVELOFES "UPROGRAM'! OF KKAT TG 09, AND VERY FEW COMMITTED PEOPLE. 
WE OIP, HOuCVE Rs HAVE THE SUPPORT BF THER MEMBERS OF 'IQNE! Sen IN 
PARTICULAR THE ECOS PRSJECT, KITH «HOM WE PRESENTED A JOINT 
FONDS PROP ISAL TO THE STERN FOUNDATIAN «HICH NETTED $10,000- 
ae Tats PONY Te BUILD THE COMPUTER ENVIRUAMENT (95,000 WORTH)» 
aa ENT ANO TELEPHBNE BILLS (NB SALARIES)» WE DEVEL@PED A PREPBSAI 
OR A FULL-SCALE COMMUNITY COMPUTER CENTER WITH A BUDGET OF 

$100, 503 FOR IrS FIRST YEAR. IT TOOK US A YEAR OF STEADY 
Fu SORAISING T9 QAISE THE “9NEY,: DURING WHICH TIME THE CBMPUTER WAS 
INSTALLED (AT A TATAL COST OF $790), AND aE BEGAN T@ LEARN ABOUT OUR 
OPERATING SYSTEMs WHICH NONE OF US HAD SEEN BEFORE. 


Toward tho end of January, 1972, the machine 
room was under way and we were down to $4,000 
which had to bo' spent soon. We had been con- 
tacting and building relationships with founda~ 
tions for months. We only received responses 
from foundations with whom woe managed face-to- 
face contact with the director. So far, only 
those who have also seen us at work have come 
through. A problem has been that the foundations 
we encountered did not have the technical 
expertise to evaluate our project; they seemed 
threatened by the quantum jump from simple 
telephone switchboards to computerized in- 
formation networks. However, we did convince 
tiie people of the Whole Earth Catalogue Community 
Fund to lend us $8,000 "for a munth" to tide 
us over until the other grants came in, 


e PETER DEUTSCH J°GUGHT UP THE APERATING SYSTEM (WHICH 
HE HAC WRITTEN 3 YEARS SEFORE)s DONATING ‘HIS TIME, AND FRED WRIGHT 

FAQM ThE STANFGRD ARTIFICIAL INTELLIGENCE PROJECT HELPED BUR RESIDENT 
HARDWARE PERSIN, LEE FELSENSTEINs GET CVERYTHING WORKINGs THE LAST 
MAJOR CONTEMPLATED SYSTEMS PR&JECT=*A RETRIEVAL SYSTEM*-IS NOW BEING 
IMPLEMENTED BY BART BERGER, BERNAND G2ZENING AND JOHN COBNEY OF 8UR 
STAFF, WITH ThE HELP AF ROBERT SHAPIRA CF META INFORMATION APPLICATIONS 
Seev a eats ee rete 1T FOR THE CCP=10)6 PAUL HECKEL, WHG 

‘ S_“ITH DEUTSCH AT XERPX PARC» HAS HELPLD US SENERA 

NEEDED HARSHARE AND SOFTHARE® Rees AS ERE 


BY APRIL» ALL SF OUR SYSTEMS (INCLUDING UNE TB P 

acoerereuTeireNr eIscgh Ait ge racy ete Tages 4s SpA =TICH 
L WAVE BEGLy ACCEPTING IWPUT OF SEVERAL LANGE DATA E 

INFORYATION E97 SaITC#IVARCS AND OTHER PESPLE-ORIENTED MEBTAy SedoO Ne Ree 
GRAPHIC IAFORMATIUN AND SUCH FOR RESEARCH PROJECTS, AND !'USEFUL CONTACT!! 
FILES FOR A HOPEFULLY LARGE NUMBER OF CAMYUNITY GROUPS» THE ONLY 
Ree IMPEDIMENT TA INCLUDING SOME NATIUNAL APPLICATIONS OF THE 
RETHIEVAL SYSTEM IS THE COST “F TELEPHIKE CUNTACT. 


By May, we had used most of tho WEC money, 
wien two foundations cach unnounced grants of 
$25,000 contingent on our raising a total of 
$100,000, Wo liad not expested the contingency 
part, but resolvad to uso it as a levor in 
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pursuing furthor grants. Fortunately, wo 
received two contributions of $5,000 from 
individuals which cnobled us to last until the 
fall, when the rest of our funding came through. 


In everything clse, we had sought the help 
of “oxperts” but wound up doing most of the 
actual work ourselves. Wo wore, however, vory 
lucky to find an experienced person in Los 
Angeles who brought up the machine in three 
days for a total cost of $600. Then Peter 
Deutsch, who wrote an operating system for tho 
940 saveral years ago and now does resoarch for 
Xerox, put the “software” into operation by con- 
tributing his time for soveral weoks, 


During the summer, the Resource One staff 
scemed to stabilize to one electronics engineer, 
4 ‘programmers, 2 electronic apprentices, and an 
accountant with business management experience, 
Internally, we had to fight poople's tendency to 
define themselves by their acquired specialities 
and we had to develop some common vocabulary to 
be- mutually understood. Dealing with people's 
Professional conditioning is a day-to-day pro- 
cess which continues while we aro developing our 
two major software systems; an information 
retrieval system and a medical statistical and 
roporting systan, 

The information retrieval system allows a data 
base, such as the community sorvice information 
held by switchboards to be devoloped, easily 
updated, rearranged, and printed by categories. 
The system is designed to be used by the non- 
computer professional, who sees the computer as 
a tool in his/hor work. And, it can alleviate 
the six month research time spent putting to- 
gether essentially out-of-date directories, and 
can be used for several purposes, including 
power structure research, listing of referral 
information for groups which are in contact 
with people who need it, and other kinds of Zs 
information storage. The system was designed by 

' Robert Shapiro of Meta Information Applications, 
He is helping us implement the system, which 
should be completed by March, 1973. 


The medical system will provide reporting and 
in-house statistical work for the 0.E.0./H.E.W. 
funded health care centers. They have earmarked 
data processing funds and, generally, are not 
getting service comparablé to the cost ‘they 
are paying. Because we are local, we can 
Provide more immediate reporting and ara willing 
to tailor the system to suit health care center's 
particular needs. Selling this system can 
Provide us with enough income to handle the 
statistical needs of the free clinic, which 
could not afford to buy data-processing services. 


We will shortly offer a system for producing 
Statistical tables describing a clinic's 
activities. Clinics will be able to usa these 
reports to satisfy the requirements of their gov- 
@rnment grants. This system is intended to 
produce substantial revenues for Resource 
One--it may turn out to be our main bread and 
butter—-but more important, it will allow us to 
develop other, perhaps more useful informational 
tools for the clinics which otherwise couldn't 
afford to pay’ for it. 


In addition to the two soft-ware systems, we 
are developing a community education program, 
Using the computer and other media, such as video 
tape, we want to explore how computers are used 
in America, how their usage affects individuals, 
other possible uses of computers, and how 
computers integrate with other communication and 
transportation technology. Through our com= 
munity education program, we hope to reach 
large numbers of people. 


We are well under way towards making the 
computer we.have available to community groups in 
the Bay Area. But, Resource Ono will continue 
to be seen as an odd or mysterious creation 
without broad implications unless technical 
people (architects, engineers, biologists, etc.) 
commit themselves to expanding and redefining the 
usage of their skills and the redistribution 
of control over technological hardware in con 
junction with communities of people who are try- 
ing to generate change, 


For more information CONTACT- Pam Hardt o& 
Bernard Greening, c/o Resource One, 1380 
Howard St., San Francisco, CA 94103 
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COMMERCIAL MARKET» 


BESIDES KEEPING THE MACHINE UP, 
ANS PAUL KARD ARE PUTTING TOGETHER AN ELECTRONICS SHOP TO BE USED 
BETH FOR EDUCATION (THEIRS AND OTHERS!) AND FAR DESIGNING AND 
BUILDING HARDWARE NEEDED IN-HBUSE AND FOR BUTSIDE CONTRACTS» 
@NE PROJECT WHICH HAS WIDER PATENTIAL [1S A UNIGUE INTERCOM SYSTEM 
LEE DESIGNED FOR ''ONE'! THAT LINKS ALL THE SPACES IN THE BUILDINGe~s 
IT COULD LEAD T6 MBRE SGFHISTIGATED NEIGHBORHEBD COMMUNICATIONS SYSTEMSe 


LEE FELSENSTEINs 


Ha THEY CAN USE THE SYSTEM. 


ETHIC OF 'tONET! 


APPLICATI@NS 3F BUR TRALS. 


THIS ARTICLE PREPARED 3Y3 

FERC TURPING 
LEE FELSENSTEIN 
STEVE ROBINSON 


SW 


“We doen't alm to be self- 
contained,”’ Scott said. ‘That 
Many of one's facilities are 
likely to be in use at any 
“We find that our percep- 
tlon of time changes,” said 
Barry Levitan, an engraver 
“Depending 


would be logically absurd. 
and musician. 


But we do try to point in that 
general direction, Including 
as many different skills as 
we cap. We began with a 
very broad range that had 
some holes in it. Most of 
these holes are now being 
filled." 

hour of the day or night — 
part of “One's’’ attack on 
compartmentalization is to 
do away with set, 9 to 5, 
work routines that serve to 
separate a person's job from 
the rest of his life. 

on what kind of project we're 
involved in, the concept ofa 
day may be 12 hours long or 


groups. 
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AT THAT POINT T86 KE PLAN TO BEGIN GENERATIAG SUME MONEY WITH 
~ THE SYSTEMs OUR ONLY SIGNIFICANT REVENUES SO FAR HAVE COME FROM A 
TIVESHARING CONTRACT WITH THE UNIVERSITY DF CALIFAANI Ae 
IMPORTANT THAT EVERYONE OfVELI'P A MEANS OF SUPPORT THAT OB8ESNT DEPEND 
ON THE LARGESSE OF FOUNDATIANS GR CN AELFARE® 
ARE 79 DE VALUABLE TA OUR COMMUNITY, 
SLEPBRT WITH “'S (ONLY T@ THE EXTENT THEY ARE ABLE T0)4 AND THAT WE 
MUST ALSO FIND NON-EXPLOITATIVE WAYS TO MAKE MONEY IN THE MORE 
THAT'S ONE REASON FOR THE MEDICAL INFORMATION 
SYSTEM, WHICH FORD TURPING ANC CHAIS MACIE ARE FINISHING» 
SINCE OUTPATIENT CLINICS BFTEN HAVE GOVERNMENT GRANTS THAT 
INCLLUCE LINE ITEMS FOR DATA PROCESSING. 
ANY USE OF THE 94C AS POTENTIAL REVENUE, UNLESS THE GREUP INVOLVED 
1S TOTALLY BRAKE AND CAN'T EVEN CB8VER OUR MINIMAL OUT-OF-POCKET 
-C9STS (WHICH IS SELOBM).« 


AS A RULE, WE LOOK AT 


GUR ENUCATIONAL PRAJECTS HAVE BEEN THE FOST OIFFICULT TO 
COSNCEPTUALIZE, BUT ARE PERHAPS THE MO35T CRUCIAL T@ EXPANDING THE 
CO.CEPT OF HUMAN USES @F TECHNOLOGYs 
MYSTIFIED AT FIRST EVEN WITH THE SIMPLE MAILING=LIST PROGRAM, 
ANC WE ARE ALL CONSTANTLY EDUCATING NAN=TECKNICAL PEGPLEs 
TS BREAK DBRN THEIR FEARS AND STIMULATE CREATIVE THINKING ABBUT 
STEVE ROBINSON, AN MBAs HAS BEEN 
GIVING BEAKKEEPING AND TAX CLASSES T@ OTHER GROUPS, AND THERE 
1S SOME 'tFALLAUT!!'--PESPLE BECOMING EXPOSED WHEN THEY C8FE TO THE 
CLASS, AND LATER GETTING INTERESTED IN HAVING ACCESS 16 THE COMPUTERs 
SIMILARLY, MIKE CHADWICK, THROUGH HIS SKOBBL CLASSESs AND PAM 
HARDTs THROUGH A SERIES 8F VIRESTAPES 8N KBMEA'S PROBLEMS, ARE 
REACHING BUT TA THE COMMUNITY AND EXPSSING US IN THE PROCESSe 


PEGPLE WE TALK 16 SEEM 


AS OF NOWs RESBURCE ONE'S FINANCES SEEM SECURE FOR A YEAR 6R SOs AND NO 
REALLY DIFFICULT TECHNICAL PROBLEMS (BUT LBTS OF CPPORTUNITIES) 
YET %E ARE STILL STRUGGLING «ITH THE REMNANTS OF OUR 
PROFESSIONAL ELITISM, NEEOS FOR S8ME HIGHER AUTHBRITY (THE BOSS) 
TO DEFINE 9UR TASKS, AND TENDENCIES TAWARD SPECIALIZATION, 
ALL GF RHICH RESTRICT THE CELLECTIVE PROCESS WE WANT TO CULTIVATE® 
OL DECISIONS ARE MADE AT RELATIVELY 9PEN MEETINGS» 

BY UNANTMPUS CONSENSUS BF A SEVEN=PERSON STEERING COMMITTEES 
FINAL RESPONSIBILITY FOR GETTING »ORK DONE RESTS THEREs 
DIFFICULT TO 4UILC A CBLLECTIVE CONSCI9US'ESS, WHERE PEOPLE CAN 
SLFPORT EACH MATHER EMASTIONALLY AND OTHERWISE, WHEN WE ARE AT 
DIFFERENT LEVELS OF PBLITICAL AWARENESS» «ORK SKILLS» LENGTHS 
SF ASSOCIATION, AND COMMITMENTS T@ THE CONCEPT OF COMMUNITY+ 
BUT IT'S IMPORTANT, ANO WE'RE TRYING HARDe 


IT'S VERY CLEAR TO US THAT RESAURCE BNE CB8ULD NOT HAVE 
TTEN OFF THE GROUND 4ITHOUT THE HIGHLY DEVELSPED SHARING 
-- ANO WE CAN'T AFFBRO TO FORGET THATe 
T39 SHARE BUR EXPERIENCES WITH OTHERS I[AVOLVED IN SIMILAR 
PROCESSES, AND WELCOME ANY CONCRETE SUGGESTIONS 6N POSSIBLE 
SOMEWHERE, WE MISLAID THE ORGANIZATION 
MANUAL THéT S&VYS WHAT A GROUP LIKE US 1S SUPPOSED Te BE DBING, 
9 WE'RE PLAYING IT BY EARe 


‘s bm portant as 


lece could qo 
ext uj luded cy boxes 
Vev (eeu. ov wr, sella \ithle ott 


DE TY), 


te 


pezetigege 3 
CB cetgnap & 
eee a3 g 

§asa fe uceg® 
2, g>> g Ure q ° 
ESET Por 
g eqs ase ° 
BagySesesen ss 
baasias segees 
© i=} Py 
PaEELET ELE Le 


B— CMO} [TEMS w OT Poy 
jasper emo copoesssor 


KE THINK IT'S 


IT FOLLOWS THAT IF WE 
"THER GROUPS wILL SHARE THEIR 


MARK PEACOCK 


HOPING 


IT 1s 


WE WANT 


pocket, along 


with a few thousand dollars 


provided by friends. The 
people have regular 


out of our own 
sources of Income vary. 
Some 

outside the building. 


struction and materials cams 


Some inside jobs generate in- 


jobs 
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roid Donti describes as a 
“translation of cash into en- 
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for example, make 
In a more fundamental 


come. The electronics peo- 3 
way, bowever, ‘‘One’s” econ- 


Ple, 


omy rests on what Artist Jer- 


ergy. You channel and rear 


V\ range your energies in a way 


equipment and sell it on the . 
that maintains some kind of 


YFegular markst.’’ 


In this issue, we'll look at some practical music 
theory and describe a few ‘‘utility” algorithms 
for music programming. 


The first article in this series described chro- 
matic scales. The 12-tone chromatic scale is 
based on the 2nd overtone, which is twice the 
frequency of the fundamental or base frequency. 
The tones of the scale are generated by multi- 
plying the fundamental frequency by the 12th 
root of 2, 12 times in succession (ending with 
the value 2). 


Here is a general program for tempered (pro- 
portional) scales. P : 


xa 


é 


eer 


188 REM ***% TEMPERED SCALE FREQUENCY GENERATOR ¥**#* - 


118 PRINT ‘ 


120 PRINT “AT WHAT OVERTONE SHOULD I BEGIN REPEATING"'S 


136 INPUT R : 

148 PRINT 

150 PRINT “HOW MANY TONES IN THE 
168 INPUT T 

176 PRINT 


SCALE" 


189 PRINT "WHAT IS THE BASE FREQUENCY"3 


190 INPUT F 

195 PRINT 

260 LET L*sLOGCR)/T 

218 PRINT “TONE's * FREQUENCY" 
220 PRINT 

230 FOR I=8 TO T 

240 PRINT 141. FREXPCI4L) 

250 NEXT I 

268 PRINT 

276 END 


If you input: 


R=2 (octave of the fundamental) 

T=12 

F = anything 
you obtain the frequencies of a chromatic 
scale (abbr: C-scale) on frequency F. In our 
diagrams, we have labeled the tones of the 
C-scale with the first twelve integers. The C- 
scale thus contains tones 1, 2, 3, 4,5, 6,7, 
8,9, 10,11, and 12. Tone 13 is written as 
tone 1. 
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DIAGRAM B+ H-ScALE 


DEFINITIONS AND ABBREVIATIONS 
USED IN THIS ARTICLE — 


C-scale: The Chromatic scale (Diagram A). Twelve 
tones with proportionately increasing frequencies, 


repeating every octave. 


H-scale: 


tone of a chromatic scale is very close to the frequency 
of an important overtone (the 3 overtone). The H-scale 
is just the C-scale redrawn to display this relationship 
more clearly. 


The Harmonic scale (Diagram B). The eighth 


the defining tone of a scale 
Perfect 

Perfect opposite 

Major 

Minor 
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All arithmetic in C-scale music is performed 
“mod 12" — here’s a useful mod 12 reducer 


DEF FNM(X)=X—INT(X/12)*12 


Here’s our question for. today: 


Given the C-seale as the UNI VERSE, how os ‘ 
SUBSETS (patterns with fewer than 12 tones) 
with predictable properties to be selected? 


Here isa simple model to help us. 


Disa 4: c -<caLe 


Dd 
MI L eI 
41 t 3 MA 
Vv) 
MA to x 4 MI 
p& y & 
Po : 
J r vey, & 
CHROMATIC MAJOR, ; 
MINOR, 
AND PERFECT TONES 


Chromatic tones fall into four classes: 


1) The DEFINER, and the octave of this tone 
(DO). One of the 12 tones is chosen to.be the 
“definer’’ of any scale. Since the C-scale can 
start with any tone, DO must be chosen arbi- 
trarily. In al our diagrams in this article, DO is 


_ tone 1. The octave of DO is equivalent to DO, 


of course. We include the octave of DO in the 
scale because it makes it possible to use sym- 7 
metry asa tool of analysis. 


2) MAJOR TONES (MA) Major tones are 
“upward moving” with respect to DO. MA 
tones sound happy in a pattern (scale or melody) 
with DO as the definer. 


On the H-scale or cycle of 5ths (see box on 
this page for a description of the H-scale), MA 
tones are all clockwise of DO. 


If DO=1, MA tones are 3,5, 8, 10 and 12 


3) MINOR TONES (MI). Minor tones are 
“downward moving” with respect to DO. MI 
tones sound sad in a pattern based on DO. On 
the H-scale, MI tones are all counterclockwise 
of DO. 


If DO=1, MI tones are 2, 4, 6,9, and 11. 


4) PERFECT TONES (P, PO). If DO=1, 
tones 6, 7, and 8 are called perfect-tones. This 
is partly traditional, partly modern. 


a) Tones 6 and 8 are very close (in the C-scale) 
to the 2/3 and 3/2 intervals which were used 

by Pythagoras to defirie the “‘diatonic’’ (7-tone) 
scale (see PCC 1:3), They are honored with 

the title “perfect,” although 6=MI and ~ 

8 = MA by their positions on the H-scale. 


b) Tone 7 is the “Perfect Opposite” (PO) 

of DO. When the PO appears in a pattern, the 
pattern is reversible, PO becoming (when it is 
played) a competing “DO.” Tones 1 and 7 
thus form an AXIS around which the other 
tones are defined. Note that MA and MI are 
reversed exactly when PO becomes DO. The 
alternation of MA and MI tones.on the C-scale 
is interrupted by the PO, 


As we shall see presently, there is a “good” 
reason for treating tones 6, 7, and 8 asa class. 


SELECTING SEVEN-TONE SCALES 


_ Seven-tone scales, including. the familiar diatonic 


(major, minor) scales, are subsets of the C-scale. 


How is the subset specified? It turns out that 


there are several ways to do this. Each way leads 
to a somewhat different selection algorithm. 


I) _ First, the seven tones could be selected 
completely at random, like dealing seven cards 
froma deck of 12 cards. This algorithm is left 
to the reader. For the moment (i.e., this 
article), let's look only at 7-tone patterns with 
somewhat even distribution (purposely omitting 
scales like 1-2-3-4-5-6-7-1). 


II) MA, MI, and P(PO). You can use the 


Note that selection of locations 2, 3, 6, and 7 
is binary; selection of locations 4 and 5 is 2- 
out-of-3. No tone can be used twice. No 
location can be occupied by more than one 
tone. There are 1*2*2*3*2*2 = 48 different 
7-tone scales formed by this algorithm. Choice 
of MA vs. MI may be independent from loca- 
tion to location. 


In the following program (program 2), locations 
2,3, 6, and 7 are independent. Location 5 is 
conditional on the outcome of location 4 (see 
Table for Program 2). The conditional assign- 
ment of location 5 plus the need for two 
different formulas makes this RANDOM selec- 
tion a sloppy algorithm. Can you improve it? 


distribution of MA, MI, and P tones to select 
7-tone scales with predictable properties, 
based on the properties of the tones themselves. 


Here is one set of rules of selection: 100 DIM DC¢7> 


103 RANDEM 


Ist location (DO) = 1 (always) 110 DCLsI\D¢8)s1 
2nd location = 2(MJ)or ive 120 FOR Is2 TO 7 
3rd location = 4(MI) or 5 130 Rs INTC2#RNDCO) > 
4th dnd 5th locations =° 6(P) or 7(PO) and 7(PO) or 140 IF I>4 THEN 170 
5 8(P) [2 out of 3] 150 DCI) sRe2eC 1-1) 
6th location = 9(MI) or 10(MA) 160 GO Te 210 
i -= 11(MI) or 12(MA) 
7th location = r 170 IF DC€4)#6 THEN 200 


180 DC¢5)e8 

190 IF I=S THEN 210 
200 DCI) =R+24 (1-1-5) 
210 NEXT I 

220 PRINT 

230 FOR I=1 TO 8 
240 PRINT DCIDs 


Diagram C shows the scale locations and which tones 
= can occupy each location. The diagram also shows 
how the properties of each of the tones would affect 


the melodic tendencies of the scale. Major tones tend 250 NEXT I 
to progress upward, minor tones downward. <—————>- ' 260 PRINT 
300 END e 
. DIAGeAN C! T-TONE SCALES 
_. Why do we need a definer? 
The definer (from Ta Chuan/The Great Treatise on () R D() FORMULA CONDITIONS 
the I Ching, or Book of Changes) 
(1), (8) not computed 1 1 always | 
In the Book of Changes a distinction is made among s (2) lor0 2or3 R+2*%(1—1) none i 
three kinds of change: nonchange, cyclic change, and (3) lor0 Aous R+2%I1—1) ae 
- sequent (non-cyclic) change. Nonchange is the back- (4) lor0 6or7 R+29(I—1) ae 
Cnet Git Ga ere, aesiist which change is made (3) lor 0 7or8 R+2%I-15)  D(S)=8 if D(4)=7 
possible. For in regard to any change there must be , 0 9 or 10 R+2*(I 15 
F "some fixed point to which the change can be referred; 7 (6) lor bad * n( — 1.5) HORE 
otherwise there can be no definite order and every- RUN (7) lorO . llor 12 R + 2*(I — 1.5) none 
thing is dissolved in chaotic movement. This point of 
; reference must be established, and this always requires 
~ a choice and a decision. It makes possible a system of 2.8 8 fae ae a 
; coordinates into which everything else can be fitted. 
Consequently at the beginning of the world, as at the READY 
beginning of thought, there is the decision, the fixing . 
of the point of reference. Theoretically any point of RUN 


reference is possible, but experience teaches that al ; 

the dawn of consciousness one stands already enclosed !3 5 67 9 41 1 
within definite, prepotent systems of relationships. ‘ 
The problem then is to choose one’s point of reference 
so that it coincides with point of reference for cosmic 
events. For only then can the world created by one’s 
decision escape being dashed to pieces against pre- 
potent systems of relationships with which it would 

otherwise come into conflict. Obviously the premise 256 7 10 1 1 


Now that you've seen this program, a little 
question on which we shall build in later 


for such a decision is the belief that in the last analysis READ articles: 
3 the world is a system of homogeneous relationships - Y 
that it is a cosmos, not a chaos. This belief is the We said that there are 48 different scales 
foundation of Chinese philosophy, as of all philosophy. RUN possible by this method. This statement 
Bie es frame of reference for all that changes , neglects the phenomenon of inversion. A 
is the nonchanging. ‘ 3.°«4 : : 
pista —— aS ae 4 scale ig an inversion of another scale if 
: y READY : 1) it uses the same tones, but assigns a - 
\ y pigs different number the role of DO. E.g., 


1-3-4-6-8-10-11-1 isan inversion 
of 11-1-3-4-6-8-10-11, the brack- 
eting tones being DO in both scales. 


READY , 2) _ the pattern of intervals is the same, 
a but beginning with a different interval. 
. We'll explain this further in a later article; 
try to work it out for yourself i - 
iets bm 4a 4 an or yourself in the mean 
READY How many of the 48 scales are inversions of 
baa one another? Conversely, how many really 


unique patterns are possible with these rules? 


One further question, likewise with future 
significance: How many of the scales generated 
by this method are symmetrical? For example, 
1-2-5-6-8-9-]2-1 is symmetrical (look 
at Diagram C). Is this of any importance? 


12 5 6 7 10 11 3 
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Last issue we dealt with some general bid re- 
quirements that can be used in any computer 
bid situation (see box this page). This issue 
will deal with specifics for hardware and soft- 
ware. You should be aware from the start 

that your software requirements may be every 
bit as important as your hardware needs and 
specs should be written accordingly. Secondly, 
the more specific you are, the more information 
will be provided to you by bidders, (i.e., if 

you list all your requirements, it is incumbent 
upon the bidder to list any exceptions to.those 
requirements). If you don’t list your needs, 

he may not tell you all about his system and 
you will have to search out this information on 
your own. 


Both hardware and software sections can and 
should be written with a required section and 
a preference will be shown if you can provide 
this section. This gives you wiggle room in 
your selection and lets your bidders know 
exactly what your minimum needs are and 
what you really want. Chances are, no one 
will be able to give you everything you want 
(at least not at a reasonable price!). 


ees - ; : : 

Here are some more general bid specs 
that have been brought to our attention 
since the last installment of this article. 
Use them in good health. 


* The bidder must have gross sales in 
excess of $50 million and evidence 
of a profitable computer operation. 
[Wonder who suggested that one?] 
This line will certainly knock out 
Fly-By-Nite Manufacturing but will 
also knock out other small, legit- 
imate bidders as well. 

* Bidder must have 10 (20, 30 ??) or 

more similar installations in simi- 

lar institutions and must provide 
their names and addresses. 

Bidder must have an active educa- 

tional users group. 

* Bidder must provide a library of 
programs suitable for use in sec- 
ondary schools (in BASIC). 

* Computer system must have a 
second instructive language 
(e.g., FOCAL — who claims this 
one?), 


* 


HARDWARE 


You can take three different approaches in 
writing specs for hardware. You can be 
SUPER-SPECIFIC. For instance, you could 
specify an 8K, DEC Edusystem 20 with 4 
terminals (ASR 33). Unless you added “or 
the equivalent,” this kind of spec would get 
you one single bidder, DEC. If you add “or 
the equivalent” it would be like opening 
Pandora's box. Everyone would bid claiming 
they were “equivalent” or better than an 
Edusystem 20 and you might have a real 
hassle proving otherwise. Unless your mind 
is completely closed, we don’t recommend 
this approach. : 


Another approach is to spec your hardware 
completely around your software specs — 
“the hardware provided will be capable of 
operating the software described elsewhere 

in this document.” This seems like an awfully 
gutsy thing to do and requires that your soft- 
ware specs be exhaustive and exacting. This 
approach probably makes the most sense but 
I’m not convinced it’s practical unless you 
really have some sharp spec writers around 


your shop. pte 4 
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Always seeking a compromise, the obvious way 
to spec your system is to list those minimum 
hardware requirements that you think you 
might have plus your preferences, require that 
the hardware be capable of operating all the 
software specs and write yourself a neat set of 
software specs. - 


Now for the specific hardware items — 
Central or Basic Computer System 4 
Don’t spec a Central Processor (CPU) per se, 
rather spec a total system. Require that it be 
new equipment (unless you want a used one) 
and define that it be of latest generation design 
(today that’s third generation or is it fourth or 
3%[?]). If you’re gutsy don’t identify your 
core storage requirements in terms of x number 
of words or bytes. Instead, specify your needs 
in x amount of USER SPACE or user space per 
terminal, while operating in time shared BASIC. 
(We felt S000 words was adequate if the system 
could CHAIN programs.) And, if your’re 
messing with FORTRAN and the like, then 
define your needs in terms of user space for 
each language. User space is really what you’re 
concerned about isn’t it? You will find wide 
variations in user space from system to system— 
so beware. This tactic puts the pressure on the 
vendor to spécify space in your terms, not his. 
To save you dollar$ later, you should specify 
that the delivered system be expandable to x 
amount of core without thé need to replace the 
CPU or the addition of an expansion chassis 
(we said 32K). It’s cheaper to get the bigger 
chassis now and less aggravation later. If you 
have a preference for a 12 bit word system, 

say so. If you want a 16 bitter spec it that way. 


You may as well.get what you want!, 


More Storage 


In this day and age you have an unbelievable 
choice if you want more storage capability on 
your system. For the complete system you 

can choose fixed-head disks, cartridge disks, 
magnetic tape, DECtape, cassette tape, and a 
plethora of floppy disks and other assorted 
paraphenalia, or any combination thereof. You 
should examine your needs as you see them and 
then make your decision. We’re not convinced 
that a fixed head disk is needed for any reason 
other than speed and to run up the price. If 
speed is not your concern, save yourself some 
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If you're considering a DEC Edusystem, some 

combination of DECTAPE and cartridge disk is 

probably the most flexible, least cost way to go. 
~ Remember, DECTAPE is more like arandom 

access device than it is like magnetic tape, or 

‘so they say. s 


Whatever you do, be sure to specify that the 
storage you want be available to all users in 
time shared BASIC. That seems obvious but 

- you should know, that hardware people some- 
times sell you things that don’t work the way 
you expect them to. 


We're a little gun-shy about floppy disks and 

_ cassette units as of now. We haven't seen major 
vendors providing software to drive these units. 
Is that clear? Just because it’s attached to your 
hardware does NOT mean it will work. There 
must be some linking software to make the “it” 
available to the user in BASIC. The software is 
not always available, so buyer beware... . 
However, if you have some good software people 
around, these two items may bea good low- 
cost way to adding storage to your little system. 


1/O Capability 


If you’re specing a Teletype-only system, there. 
is little to worry about. For each TTY you need 
a TTY interface or for all of them get one multi- 
plexor into which they plug. Multiplexors usually 
handle 8 to 16 TTY and work out to be cheaper 
than buying individual interfaces. If you are 
going to communicate via phone lines with 
modems (see PCC Vol. 1, No. 2, p. 12), beware. 
Some TTY interfaces WILL run either direct 
TTY or modems — some WON'T. Specify your 
needs. No matter how many TTY’s you want 
now, you'll want more soon. Be sure to require 
. that your system I/O isexpandable.  _- - 
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With changing technology you-should be able 
to get multi-speed interfaces and multiplexors 
So you will be prepared to run those sweet new 
CRT’s at rates of 30 CPS or faster. Your 
standard TTY interface will not run at 30 CPS. 
Specify variable speed interfaces or multiplexors 


money and don’t require a fixed head disk. That 
doesn’t mean you won’t get one. Some systems 
only work with such a disk for reasons that have 
never been adequately explained. (Warning: If 
you will be doing CAI on your system you will 
need a fixed head disk. CAI consumes an 
enormous amount of disk space and it slows the 
system down considerably. If you plan to do 
anything in addition to CAI on that system, be 
prepared — you'll need plenty of extra disk 
space to handle it.) 


to meet this need. 


If you want card readers, printers, and all those 
other high speed peripherals be very cautious. 
These items don’t just plug into the multiplexor— 
EACH needs a controller (like an interface). Do 
you want these peripherals available for time 
share users? You had better say so! Some BASIC 
systems will run these peripherals in time share, 
~ other will not. The HP 20008, the low cost 
model, will not drive high-speed peripherals in 
time share . . . the 2000F will. (Another of life’s 
“unexplained mysteries.) Some DEC systems 
will drive these peripherals IF you buy more 
core. 
“T’d like a computer 
that’s about this high 
and this wide...” 


Another frustrating item is the high-speed paper 
tape reader you must buy on larger systems for 
$3500 or so. It is only used to ENTER system 
software. No user can use it to enter BASIC 
programs (don’t ask me why!). 


Cost savers — Mark sense card readers — we have 
friends who swear by them and other who swear 
at them. Check mark sense readers out carefully 
before you decide. You may find a punch card 
reader will better meet your needs and save you 
money. Line printers are expensive as hell. A 
good Saving can be made if you buy the 80 
column printer instead of the full blown 132 
column model. Do you really need all that 
printing? 


Here are some cost savers — Most large systems 
are sold with magnetic tape to be used to load 
the “‘system”’ in case of a malfunction. This 
tape unit ($10,000 worth) has no other use 
since time sharing users cannot use it. You 

can eliminate this costly extra by using a 
cartridge disk as your time share storage unit. 
In case of malfunction you use this same device 
to reload the system. 
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Miscellaneous 


Somewhere in your bid spec you should require 
that all interconnecting cables and hardware be 
included. Cables can run $35 to $50 each. It’s 

_nice to have them included in the price. (I 
realize these things sound obvious but unfortu- 
nately we know of schools that have been 
$-screwed by these little things.) 


Most bids we’ve seen have specified that the 
system will operate without special environ- 
mental requirements such as air conditioning. 
You might even specify the low-high tempera- 
tures you require. That’s what’s neat about a 
mini... no air conditioning, no special raised 
floors and all those other expensive things. 


Powerfail/restart capability is a hardware and 
software item. This goody costs about $500. 
In case of power failure or fluctuation, it 
guarantees you won’t lose everthing that’s 
going on and then restarts your system 
automatically. Asa hardware item, it’s 
pretty straightforward. Be sure to mention 
the requirement that there be software to 
make it operate when you’re running BASIC. 
Again, it sounds obvious, but we did use a 
system recently that had powerfail hardware 
but when the plug was kicked out, we lost 
everything???! 


Want your computer ina cabinet? Better say 
so, you may not get it that way. 


Maintenance — the stickywicket of this business. 
It costs dearly but buy a yearly maintenance 
contract on your system and high speed peripherals. 
It’s worth it. We don’t recommend maintenance 
contracts on TTY’s. Service them with on-call 
service. Be confident that you will get 12 to 

24 hour service from the computer manufac- 
turer — service by employees of the firm. I’d 

be very leery if maintenance is only available 
from a ‘local mechanic with whom we 
-contract.”’ Those of you in the boonies will 
encounter this problem. Beware. 


Haat ah Ll 
We’ve said... don’t buy TTY’s from the 
computer supplier. It'll cost you a fortune. 
The computer supplier may require that 
you buy a consol TTY from them (usually 
an ASR 35 for $3500 or so). Your stuck 
buying it from them but don’t accept the 
ASR 35 — tell them you want an ASR 33. 
It will do the same job at half the price. 


When you specify TTY’s from another 
source be sure to include the requirement 
that the TTY be modified for your system. 
TTY’s connected to DEC, Data General 
and other computers, require a modifi- 
cation kit installed in the TTY to make it 
run compatibly with the computer (cost 

is about $100 each). Remote TTY’s (via 
phone lines) don’t require these modifi- 
cations. 
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easing — Nobody buys computers these days, 
they lease them. Someone out there should 
write us an article about leasing — pros, cons, 
prices etc. We do know that interest rates 
vary from firm to firm as do all other fine 
print items. Let Truth-In-Lending work for 
you — REQUIRE the vendor to specify the 
interest rate used in calculating your lease. 


SOFTWARE y 


We’re only going to worry about BASIC here. 
If you need other language specs, you'll have 
to find another reference. Let me repeat the 
comment that this section of your specs may 
be more important than your hardware require- 
ments. 


BASIC was developed at Dartmouth College 

and there is considerable literature to explain 

what is called Dartmouth BASIC. Trouble is, 

the authors of the language have come out with 
several revisions and improvements to the 

language which have blurred the original definition. 
We’re going to reinstate what we think is the 
original Dartmouth BASIC. 
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Dartmouth BASIC includes the following 
statements: LET, PRINT, READ, DATA, 
GOTO, IF-THEN, FOR, NEXT, GOSUB, 
RETURN, INPUT, REMARK, END, DEF, 
DIM, STOP, RESTORE, RND, SGN, SIN, 
COS, TAN, ATN, SQR, LOG, EXP, INT, 


You may not need the MATRIX commands. 
All the rest represent the absolute minimum 
BASIC language requirements. You might 
place the MATRIX commands in a “‘desirable” 
software category. (MATRIX commands take 
up an awfully large amount of user space on 
core-based minis. Be sure to require the ability 
to delete the MATRIX commands at your will 


to gain user space when MAT isn’t used. Then 


you only have to load the MAT commands when 
you need them.) 


To tnis standard BASIC you should add the 
requirement of a TAB command which will 
help formatting output and the MULTI-BRANCH 
GOTO (ON x GOTO 100, 200, 300) which you 
will find invaluable. 


If you’re really getting into it, youll want 
STRING VARIABLE capability on your system. 
String variable commands allow you to manipu- 
late alphabetic data. Some systems will only 
allow strings of lengths from 6 to 18 characters, 
depending on the system. This is almost like no 
strings at all. HP allows strings of 72 characters 
(one full TTY line) on the 2000 series. DEC’s 
BASIC PLUS language will handle strings as 
large as 255 characters. In addition to having 
strings you should specify the ability to use 
relational operators (< =, >) with strings so you 
can do such things as compare strings and 
arrange them in alphabetic order. To round out 
your string variable capability you should re- 
quire the ability to concatenate strings and 
separate strings using substring commands. 


In the category of “preferred and awfully nice” 
(but not necessary) we place the ability to 
store strings in arrays or string array capability. 
This feature is now available one some of the 
newer, super BASIC systems that are coming 
out. 


Next in order of preference, we see the need 

to CHAIN programs, that is to link two or 

more programs together for continuous operation. 
With CHAIN you must have a COMMON state- 
ment which allows carrying a variable forward 
from one program to another. Some systems 
offer CHAIN but not COMMON, caveat emptor. 


The following BASIC features are not in any 
meaningful order but we suggest you evaluate 
each on its’ merits and use them in your specs 
as you see fit,...asrequired,... preferred, ... 
not necessary. 


PRINT USING or picture formatting asa 

BASIC command. This gives you the ability 

to control output format with more precision 
and without some fancy programming shenan- 
igans. Especially useful for business applications. 


Multiple statements per line — DEC has a neat 
user space saving feature that permits-you to 
put multiple statements on one line. 

10 FOR X=1 TO 1ON\PRINT XNNEXT X 


If you’re looking at a core based mini this is 
almost a necessity. 


Immediate or calculator mode — allows you to 
execute unnumbered statements without writing 
a complete program and without having to 
scratch the existing program. The statement 

may be any legit BASIC statement, even including 
a looping one. 


ENTER permits limiting the time a user has to 
input a value. Absolutely essential for CAI and 
nice to have for simulations and games. 


File capability — the ability to store data in 
sequential and random access files. You should 
specify how many files can be accessed at one 
time (4 to 10), how much data each file should 
be able to handle. These figures will vary wildly 
from system to system. 


Logical operators — AND, OR, NOT operators 
available to use on all data. 


Peripheral drivers — if you are buying card readers 
etc., we repeat again, specify (REQUIRE) that the 
BASIC software include the ability to effectively 
use these items by terminal users. 


There must be other BASIC features but we’re 

out of gas! If you’re seeking a large disk time 
sharing system than you must require a full 
compliment of system accounting features 
including x number of assignable user numbers, 
file protection for each user, and the ability to 
keep track of time and space for each user. You 
should also require that the system have a Public 
Library capability which allows all users to access 
the programs in this library, AND require that 

the vendor provide you with at least 200 programs 
for this library each of which be suited for 
educational use at your level. HP (maybe DEC too’ 
has a nice feature called a GROUP library. Users 
with similar user numbers have access to this 
library in addition to the Public Library. This 
feature is appropriate in a consortium installation 
where each school may like its own library in 
addition to the Public one. 


We hate to say this, but these are the recommended, 
requirements for one language. If you are con- 
cerned with other languages you should take some 
time to specify your needs for that or those langu- 
ages as well. 


Is it hardware or software? Someplace you should 
require a reasonable response time when the system 
is in full use. What’s reasonable??? How about 5 
seconds after pressing RETURN when all 16 (or 32° 
users arg doing normal problem-solving activities. 


At the present time there is a Standards 
Committee meeting to establish stand- 
ards for the BASIC language and all its 
improvements. This article has com- 
pletely disregarded the existence of these 
standards. When they become available, 
we will print them so you can require 
the established standards on your 
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—"“CALCOMP” = can’t read this stuff o 

Seymour Papert was in Edmonton a few weeks back for some seminars, etc. and 

mentioned: : 


1) Alan Kay's involvement in somo kind of computing thing (centre?) for public oO. i Go ‘ 
w ane hale Alto or wherever it is that Xerox has its mutant farm Seionlific Analysis Conforalion 
(2) Xerox’s own “computers and kids” program 
(3) Ed Schlossberg (of the Brooklyn Children’s Museum) and a traveling circus 

that Involved computers, inflatables and a lot of travelling 964 
{4} Ors. Papert & Minsky’s own “computers & kids" thing @ MIT and General 3 
Turtle 


Pa a 
Oo you people know anything about these things or could you find out about & . 
them and write it up in PCC? 


zs 


x 


Pla ts near. 


At COLL CPPORTURUTY Lar OTTER: : 
‘ Lure leven. Ae Sane shape AS meek om oa Fama aL 

MINNEAPOLIS PUBLIC SCHOOLS 2 pitts ines a : es 
— Wee ra see ; RARE HELE PT al Fhiscg oe oe 

Minneapolis, Minneso un” A rnennte Fe cco le ¢ Bee - 

Jin Moen, a menber of the Corouter Club, did this cartoon, T thought it fh) sr 7 The pictnny wee tb 


was @ clever ofece of work and hove that you night publish it ina coming ALS ane 

issue of your paver, 7 ay ae ‘4 44 p ote io 
Jin Moen gives tis consent for Publication, If it is published he would Tre 

like some extra ccpies of the issue. 


4 fam weet" Z 
Emmmeny 5 p coennek heteg meas 
Yours truly, Ibe he's 5 in STRATA cng Sued: 


Edvin Andersen F ) é 
Chairman, Mathematics Departaent ~ tet nal vraper 


mal veviate, Stats, b Oeste] onan LLL ate, 


et Sa NURS Co ilalectines 9i a taataget 
oom eh re O deter. phre : 

f Stott hk — 
peor 3 3 = (p, tz ) 


ick. ‘< C5 Jompling tana 


tte bre prola Yo hae Shean tha, 
pretc te bere (A then,  Maghe they Until 
wrk wth Lu levy peneke ter. 

: rx 


ep om Peeking 1s. les Morgan 
A NOM. PROFIT ORGANIZATION - 4309 CALIFORNIA STRECT, SAN FRANCISCO, CALIFORNIA one? TELEPHONE 


CABLE, BPRA BAN FRANCIECO 


I would like to know how to vet the rest of this school 


year's issues, (Hy son and I like your magazine very much), 


Pr. Opasiack- 


James UcCorzack 


(418) 732-7180 


' Sincerely, 


“PS. Ky son, the main computer user 2t our house, sayss 


I don't have a comzuter, but have access to one (an HF 
20002) 


I don't have a misic conposor, but don't really want one 


HP-20002 The cheapest tape winder is a peir of hands 


BASIC (Bo Acaaterms Srenen lereusscont Conruress) ZT have about five sinulstion/gane programs I -1ve written 


TERMINAL (and nore thet are either inaccuarste or not working) 


$s I would like to see simulition/gene programs that are e 
little no ons 
oeey 2000* wherever toys aro sold ; @ more conslex 


A GIFT FROM THE GOUTHIEST ANTI-MANACEMENT FORCES (SAMF) Twill definitely do a Pare in the future 


. 


PILOT °73 


RUN 


- 


*MORE Tr HERE WEGSGO! 
Tt HEY» HEY» WHAT'S YOU SAY?? 


ArSCAT 

Tr wHOs, WHO ARE YCUUU? 

ArtSNAME 

Tt HOW, HOW DO YOUU FEEL L L ? 
AIrSFEEL 


TrDO YOU LIKE GRAPEFRUIT IN THE MORNING?? 

As s 

Mz YES.» YEAH. OKsSURE »LOVE 

YSSNAME, DGES A GKAPEFKUIT FEEL £FEEL IN THE MORNING? 
NzI SAYs SAY SCAT TO YoU! > 
Ji*MORE 


HERE WEGOOB@! 


HEY» 


HEY» HHO TT Sate SAY?? 


?DINGBATS ARE FUNNY 


WHO. 
2ME, 
HOWs 


WH@ AKE YOUUU? 


HEE,» HEE 


HOW D@ YGUU FEEL LL ? 


?RUN OVEK BY WATERMEL@NS 
D@ YOU LIKE GRAPEFRUIT IN THE MO@RNING?? 


PILOVEIT “ 
ME, HEE»HEEs D@ES A GRAPEFRUIT FEEL KUN OVER BY 


WATER: 


MELO@NS IN THE M@RNING? 


HERE WEGG@OSt? 


HEY» HEY» KHAT'S YOU SAY2? 
78 P 
BYE - 

EDIT@K IN 

EH?10 

220 

2KUN 

HERE tEG@O08! 

WHO, WH@ ARE Y@UUU? 

?HENRY 

HCW, HOW DO YCUU FEEL L L ? 
7TRUNNYNOSED ae 
D@ YOU LIKE GRAPEFRUIT IN THE MORNING?7 


2NEVER 
1 SAY, SAY CAT TC YOU! 
HERE tEGeoo! 


WHO» 
7e 


BYE 


EP aE 


WHO ARE YCUUU? 


FOR THE REVOLUTIONARY 


— Put some PILOT Poetry up! Find the English Department! 
— Try Spanish, French, Latin (?) in PILOT! 
T: HOLA 
— Invent some word games!! (Courtesy Abe Waksman, SRI) 
R: WORD GAME IN & OUT 
T: TROUBLE IS OUT, BUBBLE IS IN 
T: DUCK IS OUT, GOOSE IS IN 
T: FOOT IS IN, SHOE IS OUT 
T: GUESS THE RULE-GIVE ME A WORD 
*MOREA:$WORD 
M: AA,BB,CC,DD,EE,FF,GG,HH,II,JJ,KK,LL,MM 
JY: *NEXT 
M:NN,OO,PP,QQ,RR,SS,TT,UU, VV,WW,XX,YY,ZZ 
N:$WORD IS OUT 
JN:*MORE 
*NEXT t:$SWORD IS IN 
J:*MORE 


10 THI! THIS IS THE GAME @F ROOMS~ 

20 TrIT*S LIKE “HIDE AND SEEK*--Y@U PICK ONE OF THE ROOMS 
30 Ts@F YOUR H8USEs LIKE THE KITCHEN OR 

40 TsYGUR BEDKYOM 

50 Tel'LL ASK YOU “YES" OR "NB* QUESTIONS 

60 TeAND TRY T@ GUESS YOUR HIDING PLACE 


t 
60 TsPICK A RGGM AND TELL ME WHEN YOU'RE READY 
90 *AGAIN Ts 


100 At 
10 TtOKeee 
120 T 
130 Ts 


140 TrIS FEGD USUALLY FOUND IN YOUR ROOM 
150 *ASKI At 


160 MIYES ge 
170 JY:*FeoD 
160 MrNG 


190 JYteN@FoeD 

200 TrI*H SOGRY-. 

210 TrI'Hh SORRY¥e*e+PLEASE TYPE ‘YES*® BR ‘*NO° 

220) Jt*ASK! . 

230 FOOD TsG6GD-e-1S IT USUALLY USED TS EAT IN 
240 *ASK2 At 


250 MrYES ae 
260 JYt*KITCHEN 
270 MING 


260 JYt*DININGROOM 

290 Trl*M SORRYs++PLEASE TYPE *YES* OR ‘NG* 

300 JreASKe . ’ 
310 KITCHEN TSARE YOU IN THE KITCHEN 

320 At 

330 MStYES 

340) (JYseGOTIT 

350) JNs*GIVEUP 

360 *DININGRO@M TIARE YOU IN THE DINING ROOM 


At 
380 MtYES 
390) JY8*GOTIT 
400 JNt#*G]VEUP 
410 *NOFOOD TrHMMeeeIS YOUR R@@M USUALLY USED T@ RELAX IN BY 
420 TrEVERYBODY 
430 *ASK3 At 


440 MIYES 
450 JY!*RELAX 
460 MING 


A7Q JY #*N@RELAX 

480 TrI"M SORRY+++PLEASE TYPE "YESS GR ‘NG* 
490 Jt*ASK3 

SOO *RELAX TLARE YOU IN THE LIVING ROOM 
S10 As 

S20 MSYES 

530) JY¥r:*G2TIT 

$40 JNs*GIVEUP 

550 *N@RELAX TsD@ES SOMEONE SLEEP IN THIS ROOM 
S60 At 

570 MtYES 

S80 JYt#*BEDRGGM 

S90 MsNe 

600 JYr:*eGIVEUP 

G10) INS *WASH 

620 *BEDRGOM TsIS IT THE BEDROOM 

630 At 

640 MtYES 

650 JYsGOTIT 

660 JN?*GIVEUP 

670 *WASH T:D®9 PE@PLE WASH UP IN YOUR RO@M 


As 
650 MrYES 
700 JY: *BATHROOM 
710 JNI*UNDER 
720 #*BATHROBM T8ARE Y@U IN THE BATHROOM 
7136 «At 
740 MtYES 
750 JYt#GOTIT 
760 JNt#GIVEUP 
770 =*UNDER TrARE Y@U IN THE BASEMENT 
780 At 
790 MtYES 
800 JYr*GOTIT 
B10 JN1*GARAGE 
820 *GARAGE T&ARE YOU IN THE GARAGE 
630 At 
840 MrYES 
GSO JY¥s*GOTIT 
860 JNreGIVEUP 
670 *GOTIT Ts 
BGO TrTHAT HAS FuUNt 
890 J2*AGAIN? 
900 ¥*GIVEUP Trl GIVE UPe WHAT ROOM ARE YOU HIDING IN 
910 As 
920 TrOHeeel SEEI 
930 *AGAIN? TrWANT T@ PLAY AGAIN 


940 At F 
950 UtYs/ YES, OKsALRIGHT» SURE 
960 JN1*OUT = 


970 TsPICK AN@THER ROOM AND TELL ME WHEN YOU‘RE READY 
960 JIeAGAIN 
990 *@UT Et 


7RUN 
HI! THIS IS THE GAME OF R@@MSe 


IT°S LIKE "HIDE AND SEEK*-~Y@U PICK ONE OF THE ROOMS 
OF YOUR HOUSE, LIKE THE KITCHEN OR 

Y@UR BEDREeM 

I*LL ASK YOU *YES*® GR °N@* QUESTIONS 


_ AND TRY T@ GUESS YOUR HIDING PLACE 


PICK A R@@M AND TELL ME WHEN YOURE READY 


TREADY 
OK eee 


saree USUALLY FOUND IN Y@UR ROOM 


H¥MeeeIS YOUR ROGM USUALLY USED T@ RELAX IN BY 
EVERYBODY 

?YES 

ARE YOU IN THE LIVING ROOM 


TYES 
THAT WAS FUN! 


ie 


3 ‘These. PILOT 73 Saatrctions are the “core” instructions 
‘selected by the makers-of the language. Many implemen-. 

- tations. will have more instructions, some may have fewer. 
The idea i is to keep the core set in every. Amiplementalion::- : 


A note about entering programs: 


-The program that makes PILOT 73 work is uniaity called: « 

“the Editor.” This program varies in language and operation : 
from system to system. This miniprimer isa description of - 

the language only; we assume that you will learn about your 
Editor from the people who set uP PILOT 73 on the: ayetara ages 
you will use. “ e 


TALKING COMPUTER: 


To make the computer talk, you use the T: instruction (for 
TYPE). When you run this program : 


THHELLO ® 
the computer says e he 
HELL@ 


(T: is just like BASIC “PRINT”’) 
You can use the T: to make the computer print pictures! 


Tz PESOS OH OD 
Ts 1. ee 8 
Te e ¢€o OD) e 
Ts c A 1 
Ts € @s# ) 

Ts t 1 

Ts NN>#</7/ 


Or to tell stories, etc. 


TiTHIS IS°THE STORY OF THE DOWNFALL @F THE NIEBEL 


(The program is left for your completion. Use extra.pages if you wish.) 
TALKING TO THE COMPUTER: 


To get the computer to let you get ina word or two (or more), you 
use the A: instruction (for ANSWER). When you run this program 


Weert. Z 
As ® ve 
the computer types @ 
? 


then waits for your response. After you have typed in something and 
pressed the RETURN key, the computer will continue with the rest 
of the program (if any). 


Here's a short program 


TetTHIS IS THE QUESTION 
TsWHAT IS YOUR BIRTHSIGN . 


As 
TtTHAT’S NICE 


When you run this program, here’s what happens: 


THIS IS THE QUESTION 
WHAT IS YOUR BIRTHSIGN 
? 


Then the computer waits for your answer... . If you then type 


CAPRICORN (followed, of course, by the RETURN key) 


the computer continues with 


THAT®S NICE 


Now, you do it: write a PILOT program using T: and A: which 
“behaves” like the interviewer ona TV “talk show” (like, Cavett, 
Carson, etc.). That is, it asks question after question, without paying 
attention to the answers at all. 


Or, if that’s not your cup of T:; try simulating Mother Goose. Here's 
a typical MG, telling a story to her children 


WHEN SHE HEARD THIS, THE WICKED WITCH JUMPED @N HER 
BR@@MSTICK»s AND HEADED AS FAST AS SHE COULD FLY BACK - 


T@ HER H@USE IN THE WOODS. 
AND WHAT D@ YOU THINK SHE DID WHEN SHE G@T THERE 


ATE UP THE KIDS a =". 
2N@» SHE JUST CHASED THEM MG's children reply 
20000, THE WICKED WITCH! 


WELL» WHEN SHE GOT THERE, THE FIRST THING SHE DID WAS eee 


(Well, what-was the first thing she did?) 


om 


ay the computer types the first part 


"THE COMPUTER TALKS SOME MORE: 
“WHAT IS YOUR NAME . fie 
?FEARLESS FRED aR 
HELLO» THERE» FEARLESS FRED a 


How did the computer do Bint By using an answer- label. Here’ 's the : 
program: on 


TSWHAT IS. YOUR NAME © a ais AM RAD eae 
_ A& SNAME <—————_—_—___——— this is an answer label re 
 TEHELLOs THERES SNAME 


< Let's look at some more computer talk: — - “ 


TsWHAT®S YOUR NAME ze , . 
At SNAME ater ig 
TsHOW @LD ARE Y@U CIN YEARS) ae 
‘AtSAGE 

‘T3WHERE DO YOU LIVE. 
ASSLIVE r 
T:S@.: YOUR NAME IS SNAME»s AND YOU LIVE IN SLIVE AS 
T:AND YOU ARE SAGE- YEARS OLD. 


e ® * 
io See how answer labels wore The $ means “‘the next characters are se ee 

(7° answer label” When the computer sees ad 
NZ ap 


As SNAME - < 
it labels the response with the label “SNAME.”’ Then when it sees: oe - 


T:YOUR NAME IS SNAME — 


ZE YOUR NAME AE Se ainda ES a ae ee es 
then it looks for theA: line which ‘contains ithe label SNAME. i 
it can find such a line, it will type the response which was given there. - 
If it can’t find the line, or if that line hasn’t been reached yet(in the = 

iy program), the computer types the label. a 


WHAT*S YOUR NAME 


2CLE@PATRA ies _ 

iS ves @LD ARE Y8U CIN YEARS) rs 
72500 - a 
WHERE D@ YOU LIVE = 
2EGYPT ae 


S@» YOUR NAME IS CLE@PATRAs AND Y@U LIVE IN EG P : 
AND Y@U ARE 2500 YEARS OLD. ~ Y . 


os What next? JUMPING! ; 
® 
®@ 


ae TI AM HERE 
TI AM THERE 


SA SHERE, 

a This is a * 

= dl ——— 
I AM HERE 

& ten you RUN this, the computer says: 1 AM THERE Si 
1 AM HERE 3 
I AM THERE 
1 AM HERE 


a etc., until-you stop the computer (BREAK key on some systems). You 
use a line label (like *HERE, *LABEL, *START, etc.) to tell the J: 
instruction (for JUMP) where to jump. 


*HERE TtI AM HERE 


Js *THERE 
“WHERE TtWHERE Am. I? 
Js *HERE 
*THERE TtI AM THERE 
Js #WHERE 


will produce the same result as 


#BEGIN Trl AM HERE 
TtI AM THERE 
TSWHERE AM 1? 
Jt*BEGIN 


What is the result? 


Here’ s a “fancy ef way: to iine (or, here come 2 subroutines): 


*BEGIN. TeHERE’S lea START - 
‘Us MIDDLE | ‘ > 
TsTHIS IS THE END 

(Je*sEND 

MIDDLE TsTHIS 1s THE MIDDLE. 
Et 


SEND Ts GoeDBYE 


Es 
fp 2RUN : @ 
3s MERE'S THE START 3 @ 


S THIS IS THE MIDDLE 
THIS IS THE END 
GOODBYE : 

Zs FE 
_U: (for USE) acts just like J: (, ‘jumps toa label) 
E: (for END) does two.things 


( 1) Ends the whole program (like BASIC “END”’). The last E: in 
-the program above does this, right giter the label *END. 


pains 


7, 


)- Ifa U: line-has been executed, E: returns the computer to the 

_ line following the U:. The first ‘'E: above, right after the,label 
~“*MIDDLE, does this. When the ‘computer reaches this instruc: | 
tion, it automatically jumps back to the line right after the U- 
instruction. cS 


ig 


F M: - 
THE WORLD O e@ 


The M: instruction (for MATCH) is used to make the computer a 
little “‘smarter.’’ LOOK HERE 
ate Y@U KNOW WHAT DARWIN IS FAMOUS FOR 


MIEVOLUTION, SPECIES BEAGLE 

TY:FQUND A-MATCH! a 2 
‘TNSN@ MATCH ; 

?RUN 

D@ YOU KNOW WHAT DARWIN IS FAM@US FOR 


~~ 


Now. if the responder types in one of the three M: items, a “match” - 
will be found. 
Ifa match is found, the value of M: is “YES” (Y). 


If no-match is found, the value of M: is “NO” (N). 


M: executes a character by character string comparison of the response . 


given to A:, with each of the M: items, one item at atime. (In other 
words, a ‘moving window” comparison. ) 


M:.takes everything literally. Suppose we run the above program. 


gerierccar a aii? ey gS Sex 


a YOU KN@W WHAT DARWIN IS Eanes FOR 


@~—————_ an honest answer. . 
we MATCH 


M: is NO. 
Se 


ee YOU KNOW WHAT DARWIN IS FAMOUS FOR 
SynoaToH SPESES 


: (M: is NO ‘cause the responder can't spell.) - 


Once more: ~ 


Kon YOU KNOW WHAT DARWIN IS FAM@US FOR 
?THEORY OF EVOLUTION 


ri A MATCH! 


(M: is YES, since the A: matches one of the M: items.) 


K To get the computer to “ignore” irrelevant spelling errors and/or 
extra text, the M: items may consist of a few consecutive 
So characters of the desired response, for example: 


MSEVOL»SPEsBEAG 
You may get ina little trouble with this approach. Consider: 


De YOU KNOW WHAT DARWIN IS FAMOUS FOR 
?THE SEXUAL REVOLUTION 


If the M:- line is 
MsEVOL»SPEsBEAG 


then M: will find a match, because REVOLUTION contains one of 
the M: items. 


This should help you to figure out how M: works. That's only the 
first part. Next, let’s do something with the value of M:. Look at 
this program: 


JY: *#END 
TSSORRY» THAT’S NOT IT 
#END Es 


if M: is Y after execution, the instructions 

TY8G@OD FOR YO@Us.7 SMARTY. 

JY: END 

will be performed. If no match is found, M: will be N, and all Y: 


instructions will be skipped. Here’s the RUN: 


= AMERICAN WAS THE 


aoe AMERICAN WAS THE *FATHER @6F HIS COUNTRY®* 
As 
M3 GE@ » WASH 
TY:G8OD FOR YOUs SMARTY- . 


"FATHER @F HIS COUNTRY® 
?SAM SPADE 
> laa THAT’S NOT IT 


s Let’s try again 


K aie AMERICAN WAS THE ‘FATHER @F HIS COUNTRY’ 


?WASHINGTON 
G@8D FOR YOUs SMARTY-+ 


Because M: is YES, the JY: instruction jumps to the line 
labeled *END. 


Se Any PILOT 73 instruction can be make “conditional” on the \ast M: 
line executed by adding Y or N to the instruction. 


Examples: 


AY JN MN UY _EN MY 


: a A few other details: 


TY: can be written as just Y: 


a (1) M: looks at the last A: executed. 
K (2) M: lines can contain as many items as you can fit in a line. 
SK 
K TN: can be written as just N: 


eS (4) 
RA ye) Each time a new M: line is executed, the value (that is, Y or N) 


of any previous M: line is erased. 


Example: 


TeWHERE IS THE LARGEST STOCK MARKET LOCATED, 
aia YORK» MOSCOW, @R LONDON 
ry 
MSNEWs YORK »NY 
Y:RIGHT ON 
JY3*END 
M3MOS 
YsSORRY» THE RUSSIANS AREN’T CAPITALISTS CYET) 
JY? END 
MN LON 
YsS@RRY» THE SUN HAS SET ON THE EMPIRE 
*END Es 


?RUN 


SOO 


DROSS 


WHERE IS THE LARGEST ST@CK MARKET LOCATED» 
NEW YORK» MOSCOW, OR LONDON 
?MOSCOW 


SORRY» THE RUSSIANS AREN'T CAPITALISTS CYET) 
?RUN 


WHERE 1S THE LARGEST ST@CK MARKET L@CATED>» 
NEW YORK» MOSCOW» OR LONDON 

?7LONDON 

SORRY» THE SUN HAS SET ON THE EMPIRE 13 


NUMBERS IN PILOT 73 


The computer can do number things, too (in case you didn’t know). 


PILOT 73 commonly handles numbers and-expressions just like BA SIC. 


To.allow you to enter a number while a program is running, use - 


‘ ("X" can be any of the 26 alphabet letters. Sone 
As #Xx 


Then, you can use the C: instruction (for COMPUTE) to ae the com- 


puter to evaluate expressions. 
 ) 
e 


C: works just like a BASIC “LET” statement. The expression must 
contain legal BASIC arithmetic symbols, and any letter variables mst 
have been assigned values previous to the C: instruction. 


CsYs2*x (Y = 2X is the expression) 


If you're doing a lot with numbers and algebraic expressions, iene 
are some other things about PILOT 73 to learn. (Or go learn BASIC!) 
We'll hold the messy details for future issues. 


Wa Ce, REYAR LMI MIDE 


7. 


FOR COMPUTER FREAKS ONLY LAND FOOLS} 
I. PRELUDE TO THE EDITOR 


THESE PROGRAMS WERE MADE TO FIT THE 
HP eOODE {& THEREFORE. 2000C & F}- THREE 
BIG LIMITATIONS IN HP BASIC {2000 VARIETY} 
ARE {1} STRINGS MAXIMUM LENGTH = 72 CHAR- 
ACTERS, t2t NO CHRIX} AND NUMNLX$} FUNCTIONS 
{3} YOU CAN'T RUN A DATA FILE, EVEN IF IT'S 
FULL OF PERFECT BASIC STATEMENTS. 

THOSE OF YOU WITH 25b WORD DISC RECORDS 
MAY WISH TO CHANGE THESE PROGRAMS, AS -PILOT=- 
1 AND PILOT: 2 WORK ON 4& RECORD X 128 WORD 
‘FILES. {PLEASE AFTER THIS ONE WORKS FOR 
YOuU.} 


II. ORGANIZATION OF THE EDITOR 
FILE "TEST" LOOKS LIKE THIS: 


[A (240) [7 6 (240 ]$ staines $84 | 
g t t 


5 9 
A CONTAINS LINE NUMBERS. 
PILOT PROGRAM 


B CONTAINS ADDRESSES IN SSTRINGS PORTION. 
SSTRINGSS LOOK LIKE: 


es Typ Torr] 


SIX STRINGS IN EACH RECORD 
MAXIMUM LENGTH=41 CHARACTERS 


~? 


ZERO=END OF 


A "B" ADDRESS=ADDRESS OF STRING. 
FIRST STRING=1 
47TH STRING=4? 


LONG STRINGS {)41 CH} ARE BROKEN UP INTO 
TWO STRINGS & SAVED SEPARATELY. THE LINE 
NUMBER IS REPEATED - 


LONG NO 


oe) ae 


, (i "— 
A © 20 30 30 40 50 60 O 
Bt 24 ® S§ 7 6 8 


LINE NUMBER 10 IS IN ADDRESS 1. 
LINE NUMBER 30 IS IN 4, OND HALF IN 19 


14 


systems will allow you to use more than one letter. d 


( OE YArtan vant onantany 


N1= 2? ¥ 37 


Pris A: eTabex 

i. Yi: _M: - $LABEL 
N: J: 
Rs: E 


PCC PILOT DOES NOT HAVE: 


. . flabel 


To insert remarks in your-program, use 
_R: (for REMARK) _ 
- R: lines don't print or do anything eise. They are for ths 


programmer ’s comments. petiole - 
® 
Rt THIS IS REMARKABLE! e 


To continue a line, (especially M: and T:) just begin the next 


line-with a colon. Example - 


T:THIS IS THE FIRST PARTs AND 


sTHIS IS THE CONTINUATION  @& 


UMAR WEEN 


ae ME OBR WH aN 


THE EDITOR KEEPS TRACK OF ALL THIS AS You 
ENTER & EDIT YOUR PILOT PROGRAMS. You 
CAN'T FOUL THINGS UP AS EACH COMMAND OR 
LINE IS PERFORMED, THE DISK FILE IS up- 
DATED. 


SCR DOES THIS: 
A ©ooo°o. 


Bi234 G/ RECORD 


~TIIT- PRELUDE TO THE INTERPRETER 


+ PILOT IS STRAIGHTFORWARD FO. INTERPRET. 
‘THIS HAS BEEN PATCHED OVER’ A-LOT, BUT IF ~ 
“YOU CAN DO CLEANER CODE. GROOVY. DUE TO 
SPACE LIMITATIONS, THE REMS HAVE BEEN 
ELIMINATED - MAKE YOUR OUN. 


A &® B ARE SAME AS IN THE EDITOR- BE 
SURE OF AT LEAST 241 ELEMENTS. {THE 
EXTRA IS FOR OCCASIONAL LOOP OVERLOAD} 


M & L ARE SYMBOL TABLES. M HOLDS 
STRING ADDRESS OF A ¥LABEL - L HOLDS STRING 
HASHCODED LABEL NAME. 

S STORES SVARIABLES {fHASHCODED}. 
OF S=STRING ADDRESS IN FILE 'E' 
BO CHARACTER STRINGS/RECORD. 


INDEX 
E HAS 4, 


IV. HASHCODING IMAKING STRINGS BECOME A 
NUMBER} 


HERE'S A NEAT METHOD {COURTESY PETE 
ROWE} CALLED - LOGARITHMIC GODELIZATION.’ 


{1} TAKE EACH POSITION OF THE STRING {LABEL} 
AND ASSIGN IT A PRIME NUMBER. 


COVED a Es Ee SEED 


23ga4 5s 


{2} ASSIGN A NUMERIC VALUE EACH LEGAL 
CHARACTER, LIKE: 
: $A BCD ise ZO ns 9 
2 3 Y¥ S@ aw 29 33 
{3} THEN CONSTRUCT A LABEL LIKE "ABA" THE 
NUMERIC VALUE OF THIS WOULD BE 


Be VALUE OF LETTER 


THIS IS CALLED "GODELIZATION-" SINCE 
NL GROWS A BIT RAPIDLY, WE USE LOGS: 


{y+ N= woe (NI) = 


3 ¥ L0G (2) + 4 ¥ Log (3) + 3 * LOG (5) 


ERGO: "LOGARITHMIC GODELIZATION." 


STRINGS- 24O NUL STRINGS, - 


F——ASSXIATED POSITIONAL PRIME 


t 


(I ALLow 10) 


emetl 
9 COM Ksen? 


10 KEM*PILOT 73 SYSTEM bX GhEGUKY YOb | 

oe REM-2296 BAYANT PALO ALTO CAL. 326-4039 

qal 

10 .KEM- COPYRIGHT, 1972. eine 
WD DIM ASTAL J obSC 4) 2CS041 -DSL 41 OES A TOF SCANT 

© VIM S8C72),03(72) 

® vim T$C72) % : - 
0 EN-SET PO TO LENGTH GF SS AND OS 1%. ABGVE PQ js mazimum sirlag bragth 
OD PO=s72 ‘ alowed on your system 
@ DIK AC2S01,86250).L6503.MC50) 

©0 DEF FNACK aX<INTCCX*19/6286 FINA choosre which string ine rerord 

30) DEF FNBCXSINTCEX-197620) FING chooses which record ta erent 


20 IF KSe"** THEN 190 

30 PRINT INSTKUCTIONS'? 
40 «INPUT SS 

SO IF S$C1.116"Y¥" THEN 190 
60 CHAIN “PILOTS” 

90 FILES TEST.E - 


A string in common i taitialited 10 NVL. This detects 
whether 0 chamed program Us RUN o¢ mot previously 


“PILOT 3” has instructions & chalas beck to “PILOT 17 
Alweys different in cock dialect of BASIC” 

GO IF END #1 THEN 260 Checks whether to laitialise (SCRATCH) your file (TEST) 

10° KEAD. #141 


20 MAT HEAD 613A 

30 READ 61.5 Absord A and B arrays 
40 MAT READ #196 ; 

-$0 G9Te 310 


SOs SESUG, S690 SUB S690 laltialines the file TEST— 
00 PRINT "SCRATCH PERFORMED ON FILE" Jott a reminder 
10 KEM-EDITOh_PROGKAH 

20 PRINT “EDITER IN" 

30 PRINT “EH"s 

40 INPUT SS 

$0 16=0 

60 Gesub Salo 

70 1F N<1 THEN 2000 

80 REM-NUMERIC COMMANDS - 
90 IF S$C(1,2)2"72" THEN 700 
OO IF SSC1,13="7" THEN 900 
10 IF, Sse" THEN 1000 Mealy a number, delete 
20 REM-DELETE A LINE DELETE LINES 


30 Fok Is) To. 240 an 

a eee aett Locate line nambér if double eagth 
40. GOT@ 340 i 

10 1F ACI¢1J=N THEN 580 ; 


®0 REM-SINGLE LINE . 
90 = PabtI) ‘ * 
Sale line deletion 
SUB $200 saves A and Bon disk 
eee 
tioa 4, bumping A arrey, bumping A acre; 
¥ ond seving oddrem at end of B array (or sralbible spec 
shrinks, 


Fret thing you see fa RUN of returning from PILOT 2 
Indicates Ulegel command 
‘S8 holds your iapat for parsing, ete. 


Branch to (RUN,RENSCRLIS} 


Line 700 Kats 10 lines, Line 900 lists nas Hae, 


00 F@R J=1 Te 239 
AO ACJIBAC JCI) 

20 BIJI=BiJ+1) 

90 NEXT J 

40 AL2403=0 

‘$0 _BC(240J=P 

60 GOSUB 5200 

‘70 GOT 340 

‘80 REH-DOUBLE LINE 
190 Psbt1) 

0 PlebCiel) 

0 FOR Jal Te 298 
20 ALJI#AL EZ) 

0 BCJIeBL3+2) 

M40 NEXT J 

350 ACZ40}=A(239#0 
360 BL2393=P 

370. BLZ40J=P1 

380 Gesu 5200 

390 GETS 340 


100 KEM-LIST TEN LINES 700880 bists 10 ines 
NO FOR Iel TQ 240 , 
20 1F ACI) >= N THEN 750 Locate Gane nember 


M0 NEXT I 

140 «GOTTA 340 

1SO) PRINT ""* 

%60  «(J1s0 

170, «IF J1>10 THEN 870 

180 G®SUN 5270 

190 «IF -ACI¢1)#AC1) THEN 620 


""ts for NC line food tn HP BASIC 


SUU S270 bmoks op the string 
Cheek if double length 


(300. Teter” r 

310 IF SSe™" THEN B70 ; 

320 PKINT AC133S$ * ft 
390 Iejer . | = 


RaQ IF ACI)<1 THEN 870 
B50 JieJle) 
860 GOTO 770 


B70) PRINT “"* “" ls for NC line food tn HPHASIC 


“ago GO18 340 


B90 KEM-#NE [INE 

90 FOK Jal 10 vau 

910 «IF ALJJ=N THEN 940 
%0 NEXT J . 
930 GeTe 340 

940 PKINT "* "ba four kine fords 

950 ley 2 
960 GuSUb 5270 ‘ 

970 PRINT ACIISS 

980 PRINT “", 

990 GoTe 340 

1000 KEM- INSERT OF BVERKKITE 
1010 FeK I#l TO 240 


890-990 List one line 


Seve or overurite « line (hairiest pert of editor) 


1020 IF ACT2=N THEN 1080 Check if overnrite 
1030 IF ACI)>N THEN 1400 Check tf last tine 
1040 IF ACI}=0 THEN 1570 Insertion 

1050 NEXT I A 

1060 PKINT “N@ KORE SPACE” Exrer fing 


1070 GeTe 340 

1080 REM-OVEKWRITE 10801390 Orerweite ~ Possible cases: 

1090 IF 1¢1>240 THEN 1110 ~  SINCLE DOUBLE. 
W100 IF ACLI#ACIO1) ThEN 1250 — Single length inpat 10 1270 
1110) REM- ORE LINE IN FILE Double length inpat 1180 1x20 
1120 IF LENCSS)>41 THEN 1160 

1130 Gesus S040 

1140 GeTe 340 

4150 REM- TkO LINE INSERT, ONE LINE IN FILE 

1160 TSess 

4170) S$#SSt1,41) 

1180 GeSUB 5040 

1190 Isto 

1200 S$=sTS(42) 

1210 Gesu 1910 

1220 GOSUB S040 

1230 Ge@SUB 5200 

1240 GOTe 340 

1250 kEM- TLO LINES IN FILE 
1260 IF LENCSS)>41 THEN 1320 ' 

1270 REM- €NE LINE T@ PUT INT@ TWO LINE FILE 

1280 G@SUb 1820 SUB 1820 anti-bumps A ond B (fills a hole) 
1290 G@SUB $040 
1300 GeSuB $200 
1310 GOT@ 340 : . 
1320 REM- TWe AND THO 

1330 Ts=ss i 

1340 S$eS$t1,41) 

1350 GeSUB S040 

1360 Tate 

1370 SS$=T$(42) 

1380 GeSUB S040 

1390 GeTO 340 

1400 KEM- INSERTICN 

1410 GOSUb 1910 

1420 IF LEN(SS)>41 THEN 1470 
1430 KEM- SINGLE INSERT 


SUB 1910 bumpe 4 and B (maxes e hole) 
SUB 5040 stores ttring on disk 


Ssves Aaad Bary: 


14001560 Insert new tine berwcen others | 


Check if double length 


“4440 GOSUb $040 4 


1480 GoSUU $200 
1460 GOTO 340 
1470 REM= DOUBLE INSERTION | 
1480 TS=S$ 

1490) SSeS$(1,41) 
1800 Ga@SuUb 5040 
1510 Inlet 

1520 S$=TS${ 42) 
1$30 GaSUb 1910 
1540 GeSU 5040 
1880 GOSUb 5200 
1560 GeTe 340 


PILOT P 


SUB 5410 tries to get ating number N= —J waonember found 


NY 
\ 


% 
> 


1$70 
1580 
1390 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1660 
1690 
1700 
1710 
1720 
1730 
1740 
3620 
1630 
1440 


1#90 
1640 
1Kk70 
1660 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
19n0 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2060 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
e270 
2260 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
5040 
5050 
53060 
5070 
5080 
5090 
5100 
S110 
5120 
5130 
5140 
5150 
5160 
$170 
$180 
5190 
5200 
5210 
5220 
$230 
5240 
5250 
$270 
5280 
$290 
$300 
$310 
s920 
5330 
5340 
5350 
5360 
$370 
$380 
5390 
$400 
$410 
5419 
$420 
5430 
5440 
5450 
5460 
$070 
54k0 
5490 
5500 
5910 
ss2u 
S550 
4540 
$380 
5560 
$570 
5580 
5590 
$600 
5610 
5620 
3630 
5640 
5650 
$660 
$670 
5680 
$690 
5700 
$710 
$720 
$730 
$740 
5750 
$760 
5770 
5780 
5790 
5800 
6100 


.1F SS$s 


REM- LAST LINE CASE 


IF LENCSS)>41 THE! 1650 
KEM- ONE LINE, PLEASE 


ACI IJen 
GOSUL $040 
GOSU Sz00 
GOTa 340 


REM-LCULLE IF YOU WISH 


ACLIsN 
ACIe1IEN 
Tle83 
She32017-41) 
GOSUL 5040 
S$eTst a2) 
Islet 

GHSUL 5040 
GUSUE 5700 
GEIB 346 


1570.1740 Ifnew hae equal to last ne then t 
beck @ aaed eae a 


Songle site : 


Donble sae 


Store tring 
Sere A aad Barrays 


KRM- GIVEN I< DELET# THE LINE 


heb) 

FOR Jel To 239 
ACJIEAC ELD 
bOSIabO Sen) 
NEAT J 
Avea0186 

biY40 JEP 
bRTURN 


HAZ0.1900 SUH IRZO shrinks A amd Ih the thor 


z r 
a Wr >] CF it 
0 > MF trceeen 


FhM= Given To» HUFP CUT Nk LIKE 


pebCi'a0) 


FUK Jezag Te 1¢) STEP a1 


ACJISALS=-19 
BOLE g-13 
NEXT y 
ACTIN 
BCL )=P 
KETUKN 


KEM-NON NUMERIC COMMANDS 


SSassie 
IF ss=°SC 
IF SS="L1 


GOTO 330 
REM- SCRATCH 

GOSUB 5690 

GETS 340 

REM-LIST 

PRINT" 

Fox et Te 240 

IF ACI3<1 THEN 2190 
GosuB 5270 

PRINT ACIsS8"" 


IF ACIIOALI¢l) THEN 2180 
Talel 


NEAT I 

PRINT "* 

Ge8Ts 340 

REM- KENUMBER 

15010 

FOR Is] Te 240 

IF ACII<1 THEN 2340 


IF ACIIACI¢1) THEN 2290 


ACT )#15 
TSs15010 
GeTe 2330 
ACII#IS 
ACIe1IaI5 
Intel 

GETS 2270 
NEXT 1 
G@SUb 5200 
GoTg 340 
CHAIN “PILOT2" 


KEM-GIVEN I, STASH SS 


VaFNb(b(1 06 


THEN 2070 
" THEN 2100 
SEN“ THEN 2220 
IF SSe"hUN" THEN 2360 


1910-170 os punde A oad I bho thie 
4 


N line aumber 
Po lateaty alt 


(Aa you may ante, mucrtion & Ueletwin do strange things) 


Aevall Line 370 - this is the other main brunch of the editor 
Look at Ist 3 charecters of S$ ond branch 


Ratera to EI, Line 330 Uf aot recegalable 


The “" contsias X¥ {turns paach off) which allows the 
ope to be ward as input at a later time 


Reaamber by 10 (15 hols increment valae) 


Uf sero, quit 
Check if double tength 


Seva A and Barreys 


RUN (PILOT 2 RUNs the PILOT Program) 


Alessy a8 you can wee. Read « record, renrite hotdis mew strings S$ 
Because strings start at record 9 in TEST ns a 


READ #1 ,.VSASs65,CSsDS,ES,FS 


GOTO FNACB(1)) OF 30802510045120,51 40,5160,5180 
PRINT #1,VsSS,bS,CS,DSsES.FS 


KETURN 


PRINT #1.VIAS,SS.CS,DS,ES,FS 


RETURN 


PRINT @15VIASsbSsS$,DS,ES.FS 


RETURN ~ 


PRINT @1s5VSASsbSeCSsSS,ES 5FS 


No comment. Sare A aad Bamay: 


RETURN 

PRINT #)sVjAS,bS,CS,DSsSS5FS 
RETURN 

PRINT #1,VjAS,bS,CS,DS.ES,SS 
RETURN 

KEM-PRINT A AND & ARRAYS 
READ #341 

MAL PRINT #t3n 

READ #145 

MAT PRINT #136 

KETUAN 


KEM- EXTRACT SS HHEN GIVEN I 18 uring aldretse. Get S$ given | 


KEAD #1, FNECECIID+& 
FOK J=1 Te FNACBOID) 
HEAD #15SS 

NEXT J 

IF 1¢1>240 TKEN $400 


IF ACI4#13#401) THEN 5400 


16cb(141) 

KEAD @1,FNKC16)98 
FOR Je} TO FNACI6) 
KEAD #1jAS 

NEXT J 
SSCLENCSS.9¢1)eAS 
RETURN 

REM-GIVEIS Sf CE1 N 
DIM Z1010) 
ZLe"UlAZdAsa7Hg” 
Ne-l 

Gash 5550 

IF Sic THEN 5540 
Gesin S610 

Th N1eO THEN 5530 
IF N>-] THEN S500 
NeO 

N51Q@Nneny 

S$2S8t7) 

GATF S450 

Grsth S550 

KRTUbH 

REM-URELANK Ss 


IF S*Clo1}0" © THEN 5600 


sees) 

IF Se" THEN 5400 
ceTc 5560 

RETURN 

REM-DIGIT SCAN 
Nis) 

FOR Jz) Te 10 


One mile!!! (Note the B) 


Serial READ works fine, | 
ee eas be If youare @ tune fenatic, avte S280 
heck if file is fall 


Qherk for duuble teagth 


Concatenations in HP HLASIC 


Concert ateing “Y" to numeric 4.0 ele, Cetstine aumber 


SH10.5530 SUH 5550 removes bading binnks 


conypare digit with aumeral 


Neild N 
Op off first character in SE 


Lack he! 


Set Ni = value of dit 0-9 


IF SSC1431#2SC JJ) THEN 5670 


NiwJ=] 
RETURN 

NEXT J 

RETURN 
REM*SCKATCH KOUTINE 
MAT AxZEK 

MAT B=ZER 

FOR Jal TO 240 
BlJ)aJ 

NEXT J 

Ase" 

FOR Jed TO 46 


SetA©0,81,2,3,...,260 


Priat NUL strings in SSTRINCS portion 


PRINT #1, JIAS,ASsAS,AS,AS,AS 


NEXT J 
G@SUR $200 
RETURN 

END 


Sores statements 


“Ld 


* GOSUb 3520 


DIM ASCal) 
DIM SS{723-0SC721 


POsT2 
DIM ACZ41)-B(24i JL 65032MC50) 
DEF FRACKIMX-~INTCCX=1976)06 
DEF FNBCXD@INICCA“1976061 
FILES TEST»E 

GATO 2400 ‘ 

CHAIN “PILOTI" 

RESTORE 

GOSUb 4680 

1620 

1920 

READ #1et 

MAT HEAD 4154 

READ #15 

MAT KEAD #156 

MAT MeZER 

MAT LeZER 

Feo 

Gel 

FOK Is) TO 240 

GOSUb 5260 

COsLENCSS) 


Esa to dace 


faitinbaing 
SUB 4680 initializes lots of staff 
BB, 9 and Dore counters 


Here we stort the fast pass (assemble symbol tebles) 


Seas 1 ell string wddevi in ESTRINCE 
Sim S240 Gace Lrekion SE foo BSTRINGS 


If S$a"" THEN 2750 UL NUL string, fort pass is complete, Start execution 
IF SSC1+t 0%" THEN 25BS Orch for *lebel Breach eround (f aot 

GESUB 3490 SUB 3490 extracts * abet ax D8 

GOSUB 4920 SUM 49720 hash codes NB 4s QI 

LtO3«0t Store hashed hable in L 

Mtujel Store oldress ea 

Orael Incremrat counter Q pio rehl 
IF Q>SO THEN 2750 Teat if table fault. Ifo, bepinexecetinn —_sgis now = ry Ng) 
GeSub 3540 SLH 3300 Lnok for colon ia statement. ~ CE * COM 

IF CECLST ISNA" THEN 2640 Apfaat az 

IF SSCIs1)4"S" THEN 2640 Ship (fen # rerakle to mre 

GOSUb 3690 ; 

Gesuetases Get 8 verithh as DS, kesh cute DE 

1921901 farrement counter 19 ‘ 

Ik 19>Z20 THEN #640 U table is fall, eaore s 
SUL9)eG1 Sare la table 5" 

GeTe 2565 

IF GO<42 THEN 2640 

late} locremeat counter I elders) ecenediag to singh ar 

IF 00<42 THEN 2650 Keni knee 

latet 

NEXT I Pad of block 

120 Bezeacarentvon 1 ~ pengram rosntcr 

Teret dacremenl program cmanter! 

IF I6<1 THEN 2740 Mt choy bs for duabl beagth bar 

Lede. 

18x10 

IF I»vag 1KEN 3490 Haupe of rad of file 

GOSUr svbO Cot new SO, tort of NGL, teat if double bength, wt BH fing 


IF ss2"" THEN 320 

IF LEu(S$)<42 TREN 2R60 

180) 

IF SS(t21)0"e" THEN 2920 

Gosub 3690 

IP LENCSS)>0 THEN 2920 

GaTO 3z0 

GOSUb 3580 Cet C9» condition, C8 = commend 


TE G&e"y* THEN 3000 
IF GSa"N" THEN 3020 
Csacsc py 


IF Css THEN 3360 
IF CSs THEN 3220 Breach to command 
IF Cae THEN 3190 
IF C$e"k" THEN 2760 


IF CS="E" THEN 2890 


Check if C$ exists 


GOTO 3140 T: defestt 

IF F>O THEN 2945 Oech if "ya" 

GeTo 2760 

IF F«t THEN 2945 Onrch if “no” 

GOTO 2760 
GOSUB 3820 SUB 3820 weans for § variable ead prints text 
Tatel Tia loop flag. If > 100, will exit program 
IF T>100 THEN 3470 

GOTO 2760 Back to main loop 

GOSUB 4520 Match routine SUB 4520 

GeTe 2760 

INPUT IS aA 

ISCLENCIS)41 }5"" 

LSC AyLENCLSD¢9 014 |Add dngend mg bo 
ISCt,3)2"" ¢ 

TsO Tern off loop couaters (rest to zero} 

IF 18€4,4)0"@" THEN 3490 Check if "3" abort (chain to PILOT 1) 
TisTsO 

IF S$€1,138"S" THEN 3340 4 
GOSUB 3690 Save reply ia “E" 3280 — find addres 
GOSUb 4920 


FOR J=l To 19 

IF Q)=S€J) THEN 3320 
NEXT J 

GeTe 2760 

L2rJ 

GOSUH 4370 

GOTO 2760 

Tietlel 

IF Ti>100 THEN 3450 
DSu"e" 

G8SUb 3690 

G@SUb 4120 

IF M20 THEN 3430 
Take 

GOTS 2600 

PRINT "CANNOT LOCATE *"DS"* 
GeTe 2760 

PRINT “JUMP LeeP AT “DS 
G8TS 3490 

PRINT “TEXT LoeP” 

PRINT "BYE" 

Gots 3¢0 

IF SSC1eEIa" " THEN 3570 SUB 3520 remove broding blanks 
IF LENCSS)<t THEN 3570 

S$eSS(2) 

IF LEXCS£9<2 THEN 3570 

GoTa 3520 

RETURN 


SUB 4370 stores reply ia “E” 


Jumps - increment jump couater, test if greater than 100 


A fedge fia! 
Extrect label SUB 4120 looks for addrex 


If BI2 (were address) © 0, label not foend in table 
Set program cosater ead jump! 


Esit program to editor PILOT 1 


SUR 3580 look for“:” C8 = command GE = condition 
FORK Jle2 10 LENCSS) 

IF S$CJI,J1)=%2" THEN 3650 

NEXT JI 

KETULN 

CS$#$$0101) 
GSeS$CJIebedd-1) 
SSess(J1e1) 

KETUEN 

GOSUb 35z0 

bee” 

FOk Jle< TO LENCSS) 
IF S$CJLed1)e"S" THEN 3740 


SUH 3670 Hrbbonk aad get * label or § variable [18 from S$ 


IF SS(J1,d1 88" ThEN 3740 
IF St(JI,J5I)< WEN 3790 Ippel character wt, If illegal character, endof abel 
IF SSCJI,J1<"2" THER 3740 


IF SSCP, S12 CUA" THEM 3790 

IF SECJDed122"7" THEN 3790 

NEXT Jl 

J2eLEN S$) 

vin pe(to) 

KEm 

USCL 1028531452) 

SSess(JCO1) 

KETUAN 

JusJiel 

Geta 3760 

Pal SUB IRIO Scan text for § reriuble, Priat text aad 8 rarnb 
PISLENCSS) 

IF SSCP,PJe"S" THEN 2900 Test if cdwructer is “8” 

PRINT SSC1,195 Priat a chameter 

IF LENCSS)<2 THEN 3880 
S$2S5(2) 

G8Te 3830 

PRINT 

RETURN’ 


Comings and line feed when finished 


coloa 


re OILOT 2 


» SCIe-1IstSCN2) 


 RSaXSCIZLENCXSI=1) 
IF X$s""- THEN 4550-— 


IF SSCP*1-Pe1L 3a" * THEN 3650 
asuss 

SsuSstpr) 

Gesu’ 3690 

GOSUB 4920 

Leeo . . 

FOR Jal TO 19 

IF G1eS(J) TREN 3990 
Lees 

NEXT J 

IF L2¢0 THEN 4010 
PRINT "S"'3 


Rejects “8_" are 9 uriebic. OF ina temporary tiring 


390-4010 Locate X8 as 8 variable from “E* 


GETS 4090 

GOSUb «240 SUB 42:40 get X8 from "E7 

OSEP 3aXSC3-LENCXS)=-33 — Cieen Aushooded ¢ hae 

PLsLENCOS) : eh tefl s 


IF PI*LENCSS)<PO THEN 4080 
OSCLENCOS +1 JaSSCLENTDS 2419 
Ss=05 

ceTe 3680 
SSCLENCOS)¢1 JeSS 
SSs03 - * 
GOTe 3650 

KEM 

GOSUB 4920 

FOR J#1 TO 50 

IF L¢€J3201 THEN 4200 
NEXT J 

PRINT DS" IS MISSING” 
Le=m2alel 

RETURN 

t=mMCJ) 

L2en2s1 

RETUAN 

L3sFNCCL2) 

KEAD @2-L3sWSxXS,YS0ZS 
LaeFNUC(L2) 

IF L4<2 THEN 4340. 

IF La<3 THEN 4310 

IF L4<4 THEN 4320 

XSe2L 

RETURN | 

XSeYS 

RETURN 

XSaksS 

RETURN 

L3=FNCCLe)> 

READ &2,LI5USsXSsYSeZS 
L4a=FNDC(L2) 

IF L4<2 THEN 4a90 

IF L4<3 THEN 4470 

1F L4<4 THEN 4450 7 
PKINT @2sL33hSsXL,YSo18 
RETUKN . 
PRINT @2,L33hSsXSo1S6Z8 , 
RETUKN 

PRINT #2oL33t:$s IS, YS$,Z5 
RETURN 

PRINT 625L331SsXS,¥S,28 
RETURN 

SSCLENCSS)¢1 22%," 

FOR Jes2 TO LENCI3) 

IF ISCJ2,J2)# 13 CJZ-1,32-1) THEN 4526 

It [4CJZ-UZ)e" THEN 4526 Remove multiple blanks in oancer 


Uf mot found, error and wt to program counter +! 


Civen LY, grt NB from “E™ 


Ciren L2, put X8 nto “E™ 


MATCH FUNCTION 


IF JZeLENCIS) THEN 4530 

NEAT J2 

tro Phige “N" 

IF LENCS22<2 THEN 4660 Naar cae wonts — branch 
toh Jal 19 LENCSE) 

AF S£CJloJi1e"s" THEN A5¢0 

NEXT JI 

XSaSSCioJiel) 

IF XSCi,1)¢" " THEN 4585 
xXSaxS(2) 

IF XSu""' THEN 4530 

GOTO 4581 

IF XSCLENCXS)+LENCXS) 0" “ THEN 4590 


Cot NS as cue word. Remove lesding and trailing blenks 


| Blank cue word exit ~ 

GOTO 4585 " 

SSasSStJle1) Traacate S8 for next cue word 

IF LENCXS)>LENCIS) THEN 4540 

Fok Jil TO LENCIS)-LENCXS)¢1 

IF XSBISCUI,JISLENCXS)-12 THEN 4650 Socing window match scan 
NEXT JI 

GOTO 4540 

Fal “ayn 

RETURN i Sone 

DEF FNCCK)m@INTCX/ 4095241 Initializing stuff 

DEF FND(X)=X-INTC(X-1 974904 

OSs" *SABCDEFGHI JKLMNGPURSTUVEXYZ098 7654321" Legel character set 
DIM 18072) ; 
DIM 4$(601.XS(601sYS(60 1425660} 

DATA 22325e Tob lol3ol 7519023229 4 

DATER err ara 730-4780 Pat log (primes) into Parray 


READ Q1 Pte 
PCJ)*LeGCO1) Line 4840 — Print “XXNX™ into “E" If you hare: 
NEXT J 1 T: HOW ARE YOU, 8 NAM? fi 
MeLI=T1oT220 2 A: SNAST 

TsO the “XXXX™ will appeer as an undefined $ variable 
MAT LaZER valve indicator oe aa 

DIM S(20) 

MAT SeZER 

READ #251 


FORK J=l To 5 

PRINT #25 SI XXAAXK' oAXAKAK g XARXKK" 4G "XAARARK" 
NEXT J : - 
RETURN 

DIM QS$C40) 

O1mM PLI02 

Q1=0 

JIZLENCDS) 

IF JI<11 THEN 4960 
Jisl0 

FOR Jel TO Ji 

FOR Kel TO 36 

IF DS(J,J120SC(K»K) THEN 5020 
NEXT K 

NEXT J 

RETURN 

O1sO1+KePLJ) 

GoTA 5000 

READ #@1,FNBCBC1))+6 
FOR Jsi TC FNACBCII) 
READ #13S% 

WEXT J 

IF 141>240 THEN $400 
IF ACL#I)#ACI) THEN 5400 

16eBC141) 

READ #1 ,FNUCI6)+6 

FOk Jel TO FNACIG) 

KEAD #13AS 

NEXT J 

SLECLENCSS 241 2AS 

RETUAN 

REM-DEELARK S$ Kemove bading blanks from SB 
IF S£$C1o1)0" " THEN 5600 

S£eSs2) 

IF Sis" THEN 5600 

GeTO 5540 

hETUKN 

END 


Converts 8 into log godclized hash code 08 
Willegel character, will tnp (“*_ "is Dlegal) 


Cet S$ from TEST 


Paren JAPES of Piuora ent 
Pivot 2, Axe AVAWABLE Far 5 10:00 
FROM; 


Cd Regan 4oe 


12% Beayant Pave Mero, cm. 
CWS BUG . 4Yos4', 
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USING PILOT 


If you are familiar with BASIC, the remarks will help you fit PILOT 1 
_ and PILOT 2 to your system. If you aren’t, follow this cookbook: 
C1) Be sure your computer is an HP 2000 Series machine. . 


@2) LOGON, SCRATCH, ENTER THE CODE FOR PILOT 1 AND 
SAV AND LIS. 


C3) Check that what you have is identical with this one. If not, fix 
and repeat this step. 


C4) Repeat for PILOT 2. 
GS) Create a dummy program, PILOT 3 


5  COMKS(1) 
10 PRINT “READ THE MANUAL, CHARLIE!” 


15 K$ = eyez? 
20 CHAIN — PILOT 1 
-30 END ; — 


Later you can write your own instructions. 
C6)_Now that you are loaded and ready (ahem): 


OPEN—TEST,48 
OPEN-—E,5 
GET-PILOT 1 
RUN 


At which time all those other errata will appear which you missed 
in Step 3. 
It’s wise to save some copies under other names in case you clobber this 
one [Beware of the CHAIN—BEAST] 
C7) At last, it runs (sort of). Try the various operations — entering a 
- program, LISTing, SCRatching, RENUMBERing, and RUNning. 


(When you RUN, PILOT 2 is activated. If you crash, you will 
still be in PILOT 2. When fixing your typos, be sure to get 

~ *SAV—THE PROGRAM YOU ARE FIXING* or you will likely 
either fix the wrong program or lose your fix when it chains to 
the other program] *Each time!! 


C8) Try writing PILOT programs which use all the features (i.e., TY 
NMJAR&). 


C9) Congratulations! 


Send us any really neat PILOT programs — some will appear in 
PCC. 


. 


C10) If you don’t like steps 2 through 9, send $10to Gregory Yob, 
a 2296 Bryant, Palo Alto, CA. and we will send you a tape with 
: PILOT 1, PILOT 2 and PILOT 3 on it. 2 
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_ MISCELLANEOUS THINGS & TECHNICAL HASSLES 


C1) Files — If you have a highly similar BASIC (like NOVA or BASIC 
TYMSHARE), the files statement [Line 190 ] may be different. 
“TEST” is FILE #1 and “E” is FILE #2. . 


@) Space — If you have a HP 2000C, your record length is 256 words 


So you can use twice as many strings, etc. per record. Try if you 
dare. : 


C3) Space (continued) — PILOT holds 240 single length lines. In 
practice about 1 in 8 lines are double length. Think of about 200 
lines of PILOT as your maximum size. ; 


C4) Since this is an interpreter, it looks at the disc a lot. There may 
be response problems at 5 or more terminals in PILOT. (This 
trouble has been experienced at SRI and LHS.) If you have 
this problem, let us know. 


G5) There may still be bugs! Call me up (Greg at 415-326-4039) so 
we can fix em! If you have cleaner code or hot programming 
ideas, we have ears. (Especially if your version (a) works, 

(b) faster (c) with less core) 


C6) Tapes of PILOT 1 and 2 are available — $10 service charge per 
tape (holds PILOT 1 and PILOT 2). When we have it together, 
a manuals and some sample program will be included, 


INTERPRETER 
Vs. 


~ TRANSLATOR 


IMPLEMENTING SIMPLE LANGUAGES ON MIDI-MINI TIMESHARE COMPUTERS 


Pete Rove 
Lawrence Hall of Science 
University of California 
Berkeley 


24% JAN 1973 


In this and later issues of PCC, readers will be able to explore new lan- 
guages. Some of the sinple languages can bo written in BASIC. The way 
they are inplemented in BASIC 4s the point of this article. 


At the start, I vill define a Midi-Hini as a miti-user, BASIC interpreter 
with data files and string manipulation, timeshare computer. Hewlett 
Packard's 2000 series, Digital Equipment's EDU 30, 40, 50, RSTS~11 and 
Pata Goneral's Seninar 2 thru 10 generally comply with this definition. 


BASIC as a problem oriented interpretive language “is known for its ease a 
of coding, debugging and editing. However, to use BASIC, one must have a 
minimal knowledge of algebra; a knowledge enjoyed by relatively Low. 


Then what other languages can we design for the majority of the "kids" (PCC 
vol.1,no-2 p.5) and teachors who do not and usually will not learn BASIC? 
PILOT, PYLON, CO-PILOT and NYLON ore predecessors to PILOT 73. All are 
simple author languages that take only minutes to learn and use, but are 
powerful onough to produce moderately complex programs. The question arises 
of how to implement this new tool on currently available rachines, providing 
the interactive features for PILCT 73 authors that BASIC authors have been 
enjoying for years. 


G 1969) defines an interpreter as a routino that executes by statement~ 
te translation, substituting effective error tracing for execution 
efficiency. BASIC on all the afore mentioned computers has been implemented 
interpretively, 


When PILCT-like languages are implemented interpretively in BASIC, also an 
interpreter, response-time is affected. PILOT 73 source code must be kept 
on a date file for interprotation, translation and/or editing. Hence the 
need for a Midi-Mini. And during file access and transfer, no machine 
instructions can te executed, hence reducing the numbor of machine instruc- 
tions, therefore BASIC statements executed during a given amount of time. 
When many users are involved with file accesses and transfers then the 
number of instructions executed for an individual user will be evon less, 
resulting in a degraded response-time. 


Two actual examples are known: (1) A DIALOG program, a subset of a more 
elaborate interactive author language was implemented on our HP2000B as 
an interpreter and (2) Dr. Sylvan Rubin at S.R.I. implemented his PYLON 
interpretive language-on the DEC RSTS-i1. In both cases, seven terminals 
executing these interpreters seened to be the magic number. The systems 
became bogged down doing file accesses and transfers and response-tine was 
noticeably degraded. 


An operational solution: Create an editor, syntax analyzer and a PILOT 73- 
to-BASIC translator. The editor and statement Syntax analyzer could reside 
in one BASIC program, where each PILOT 73 line, before insertion to a source 
fie, would be checked for acceptable PILOT 73 grammar. Once insertion and 
editing were complete, the author could give a command to translate his 
PILOT 73 statements into BASIC code, which would be written into a data file. 
“This translation need only be done once to produce the executable BASIC code. 
On our Decision system and on the Data General Seminar series, a user could 
uceess this data file as if it were a program file and execute it using the 
machine's BASIC interpreter. On the HP2000 series, an intermediate step of 
punching a papor tape image of the data file and loading the tape back into 
the terminal as a BASIC program, is necessary. 


Perhaps in a student-es~author environment, handling paper tape will dis- 
courage their involvement. It's yet unknown what effect the intermediate 
step might have on teacher authors, 


In contrast to the interpretive implementation of PILOT 73, a translator 

need only translate the source code once. And in effect, the PILOT 73 author 
4s creating a BASIC program, oliminating file accesses during its execution 
and therefore improving response-tine. 


PILOT 73 is a real language! The following people have agreed 
on the main features of PILOT (this version is a subset) and the 
means of extension. Specifications are available through U.C. 


Medical Center. 

WHO’S WHO IN PILOT LAND 

Name Organization Mainframe Language 

John Starkweather UC Medical Center IBM 360 PL/I 

Marty Kamp San Francisco Datapoint 2200 Machine Code 

Pete Rowe LHS Decision BASIC 
Berkeley HP 3000 BASIC 

Dean Brown Stanford Research Tymshare BASIC 

Sylvan Rubin Institute DEC11/20 SUPER BASIC 

RSTS 
Gregory Yob PCC HP2000C,E,.F BASIC 


If you have a version, let us know and we willadd you to the list. 


Dean Brown, Marty Kamp, and Greg Yob are interested in groovy 
Programs, curricula, etc., which develop in PILOT. 7 


THE CEHEEGNOER Ss 


by marc le brun 


[Each issue we will present an ‘advanced”’ programming technique: 
with explanations, examples, programs and problems. We welcome 
suggestions for topics of interest to you. ] 


<== LOGICAL 


A logical expression is an expression whose value is either 0 or 1 
depending on the values of the variables in the expression. For 


example 


ABS(SGN(X)) 
is a logical expression 

IF X = 0 THEN the expression equals 0 

IF X #0 THEN the expression equals | 
Notice the use of the words IF and THEN. It is sometimes con- 


venient to think of | as representing true and O as representing 
Jalse. : 


Many times it is possible to use a logical expression in place of an 
IF-THEN statement. In this article we will show how this is done. 


In the following discussion we will use ane to represent a logical 
expression, and other lower case letters to represent any old kind 
of expression. 


Notice the following ‘“‘rules.”’ 


IF THEN es 
e=0: 1]-e= 
e=1: 1-e=0 


1 — e is always the “opposite” of e. If we think of e as being equiv- 
“alent to TRUE or FALSE then | —e is equivalent to NOT e; that is, 
NOT TRUE (FALSE) and NOT FALSE (TRUE). : 


Remember also that any number multiplied by 0 is 0, and that any 
number plus 0 is that number. 


Now suppose we wish to write an expression which is equal toa if e 
is one and equal to b if e is zero. Here is how we do it: 


a*e+b*] —e) 


Suppose we wish to set X to the value of this expression. The following 


two BASIC programs do this in different ways 


P 
PROGRAM 1 SOS © 


10 IF E=1 THEN 40 
10 LET X=A*E+B*(1-E) 26 LET X=B 
20 eee 38 GO TO Se 
4@ LET X=A 
58 eee 


Clearly Program No. | is a lot simpler. 


If we want a variable to have a certain value if something is true and 
another value if it is false, then in MOST cases we can use a logical 
expression instead of an IF-THEN statement. 


The rest of this article will be devoted to showing how to write logical 
expressions for the usual sorts of “‘if’s.” First we will consider what 
are called “relational expressions,” that is, those involving =, < , >, <=, 
>= and <> (or #). Here is a table giving the relational expressions and 
their equivalent logical expressions. 


RELATIONAL LOGICAL 
EXPRESSION EXPRESSION 
p=q 1 — ABS(SGN(p-q)) 
p<q 1 — SGN(I + SGN(p-q)) 
p>4q | — SGN(I — SGN(p-q)) 
ps<=q SGN(1 — SGN(p-q)) 
p>=q SGN(1 + SGN(p-q)) 


<> ABS(SGN(p-q)) 
| CC ——) 
For example, the phrase 
MED SSG ccc” 
is equivalent to 


“IF ABS(SGN(p-q)) = 1...” 


! 
POOLEOL 
EXPRESSIONS ~~ - 


Secondly, we will consider what are called the “logical Operators,” 
that is, those involving AND, OR, NOT and others. 


We already know that NOT e is equivalent to 1 —e. If we have two 
logical expressions e/ and e2 then e/ AND e2 is equivalent to el *e2. 


e] OR e2 ise] +e2. (Remember the two facts about zero given above.) 
KOX a5 here 2 the ec 
S000 6 Ooo Gas s. 


? = 


SHORT FORM 


LONG FORM LOGICAL EXPRESSION | 
el AND e2 e1 AND e2 e1*e2 
el OR e2 NOT(NOT(e1) AND NOT (e2)) 1 — (1-e1)*(1~e2) 
el XOR e2 {el AND NOT(e2)) OR (NOT(e1) AND e2) el *(1—e2)+(1~-e1) *e2 
e1 NAND e2 NOT(e1 AND e2) 1—et1*e2 
el NOR e2 NOT(e1) AND NOT(e2) (1—-e1) °(1~e2) 
el EQV et (e1 AND e2) OR (NOT(e1) AND NOT (e2)) el *e2 + (1~e1 )*(1-e2) 
el IMP e2 NOT(e1 AND NOT(e2)) 1 —e1*(1—-e2) 
el NIMP e2 e1 AND NOT (e2) e1*(1—e2) 


VAT AAT AAT NAD AID VAT AT AAI ey 


OYE 2 


For example the phrase —- 
IFaOR®... 
is equivalent to : 
IF 1 —(1-e/)*(1-e2)=1 2. 


In many cases the resulting expressions can be algebraically simplified. 
It is also useful to use several LET statements rather than repeating the 
same sub-expression. An example — suppose we wish to set U to V if 
X >= Y and X <= Z; and to set U to W if X <Y or X > Z. Here is a 
short program which does this: 


10 LET T=SGNC1+SGNOX+#Y) )*SGNC1L-CX=Z) ) 
20 LET UsVeT+W*(1-T) . 
Asa matter of fact, using a little algebra, we can write 
in one jine — 
16 LET U=(V-W)*SGNC1*#SGNCX=Y) 2*SGNC1L-SGNCK=-Z))+W 


the whole thing 


PROBLEMS (in order of increasing difficulty) 


I. Write an expression which sets Z to MAX(X,Y). 


Write an expression that sets U to V if X < Y and sets U to W if 
X< YANDX < Z, 


The “rule” 


X=Y : I/(X+Y) 
X<>Y : IfX-Y) 
has to be done with IF-THEN — why? Think up some more “rules” 


which can’t be performed with a logical expression. Can you find 
a way to describe when you have to use IF-THEN? 


Steet ete Ot 8 8 8M 08 omens cecasvees s+ toss nane 


Without using the MOD operator, write an expression which is TRUE 
if an odd number of e’s in the set {e/, e2, e? }are TRUE and FALSE 
if an even number are TRUE. 


Hint: Explore the properties of XOR. 


Logical expressions can only “select” one of two values. Write an 
“illogical” expression which “selects” one of three values according 
to the following rules. 


X>Y:a 
X=Y:6 
X<Yic 
Can you think of a general class of “selection” expressions which 


picks one of N values? Describe this class. Hint: Think about 
Problem 5. 


me Pe eae wo wees 


Hint: Think about quadratics 


re 


Can you generalize the logical operators to get some operators 
which “make sense” to use in combining “selection” expressions? 
Hint: Think about matrices 


pe ® 


DOwIT*YOURSELF E ~* 


a 


ERE ARE SOME EXAMPLES 
fe PICTURES WE MADE. 


Now IT'S YOUR TURN: 


THE HURKLE AND DRAW 
ae A PICTURE OF IT. CSEE p.22) 
2..WRITE A PROGRAM WHICH 
ORAwWS A DIFFERENT 
PICTURE EVERY RUN. 
WHICHEVER YoU Do, SEND 
THE RESULT To US. IF WE 
LIKE TY WE wite: 
4. PRINT IT IW THE NEXT 
“ISSUE OF P.c.C. 
2. SEND YoU EXTRA COPIES 
" To SHOW YOUR FRIENDS. 
3. GIVE You A FREE SuGSCR- 
IPTION To Pc.c. 
4. MAIL You A SPECIAL 
SURPRIE 


hk oe oe ok ok Tete s ti 


| ao Ok 2K OK ack 
tk ak ok 2 KR soak ak 
SOOO fokaok a detok 
FI IG kek ak ak ake ice ak 
i 7K Ik a ak ak a ak 
salalaatatahsttal 


«pragong] jes 
are the 
mach jes 
OF the 
future.» 


2 Ok kak 
3K kok 


Salvador Dali 


a 
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* Ok O 40 ax ** Ok 8 4 x 
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* *OOx * * * * *OQ% * 
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I suppose it is somewhat gouche to review 
your own book, but we worked hard on it 
and I’m reasonably satisfied with the result. 
Asan instructional text, it works, and I 
judge it to be among the best of its kind 
now aailable, perhaps even the best (but 
consider the source... ). 


In contrast to our instructional workbook 
MY COMPUTER LIKES ME, the Wiley 
BASIC book is in programmed instruction 
format. Programmed instruction, if done 
properly, entails a process of careful analy- 
sis and sequencing of the material, vocab- 
ulary, and concepts to be taught, in order 

to attain explicit learning objectives stated 
out front. That means the student doesn’t 
have to guess about what he or she tssup: 
posed to learn and be tested on. The 
objectives specify particular observable & 
behaviors which the learner must be able 

to demonstrate after having worked eS 
the instructional program in the manner | 
specified. Here is what we specified 


With the programmed instruction format, 
‘ou'll be actively involved in learning 
BASIC. The material is presented in 
short numbered sections called frames, 
each of which gives you a question or asks 
you to write a program. Correct answers 
are given below the dashed line. For the 
best results, we urge you to take pen or 
pencil in hand and to use a piece of thick 
paper or cardboard to keep the answers 
out of sight until you have written your 
answer in the space provided. The ques- 
tions are carefully designed to call your 
attention to important points in the 
examples and explanations, and to hielp 
you learn to apply what is being ex- 
plained or demonstrated. 7 


Now, understand that this book is one of 
an extensive series of self-instructional 
hooks that Wiley publishes. The séries is 


LN 


The following material is an excerpt from 
Chapter 10 of BASIC, reduced from the 


actual 7” x 10” page size. 


principally marketed through college book- 
stores on special racks containing all the 
Wiley self-teaching books. Given the 
amount of depersonalized mass instruc- 
tion and the number of harrassed and/or 
disinterested and/or incompetent instruc- 
tors in the typical college, Wiley sees 
potential profit in entering the “‘college 
outline” publishing competition. Students 
unlucky enough to receive poor instruc- 
tion, or indolent to the point of needing 
last minute remedial instruction, or per- 
ceptive, energetic and ambitious enough 

to seek additional sources of learning will 
often buy this style of self-study text. 


But for us (the authors), the self-instruc- 
tional-aspect-was.a-problem, because-we-— 
believe in learning by doing. In contrast, 


the Wiley BASIC tact was to be self-can- 
Bn , ingk that we were not fo assume 
is hi er wobld habe any access toa 
t 
he 


mput nipa a, in our experi- 

nce is tHe réal earning action takes 
place. To the end of the introductory soc- 
tion where we encourage the reader to get 
access ¢0.a terminal for practice, Wiley’s 
editors added: “However, computer access 
is not essential, all you need is this Self- 


» Teaching Cuide, 


Which gets us back to the subject of objec: 
tives, and what learning BASIC means. The 
objectives in the book are stated in sucha 
iway that what-istearned can he paper-and: 
penejl tested: written answers to questions 


‘and problems.. This means that the beauty 


and benefit of interactive timeshare BASIC 
helping the novice programmer to see mis- 
takes in programming as well os BASIC 
notation and format could not be assumed. 
We therefore included many, many examples 
of short programs and RUWs to help the 
reader get a feel for the interaction between 
programmer, program, and computer. In 


addition, I got into trying cf write “Self- for remanine or amending the colloquialisms, 


noraced a line number. Type, 
OPEN — (name) 


Hyphen. 


CHAPTER TEN 


Files.” 


The use of BASIC files is an advanced eontegh you may not find useful right 
away. How and when to use files is diMficull to learn for the novice and you 
may find this chapter takes two or three readings {0 be fully understood. We 
suggest that you read this chapter once now to get a gencral idea of what 
files are all about. Then after you do some more BASIC programming and 
are comfortable with computers, come back and work carefully through this 


chapter. 


When you have completed this chapter you will be able to: | 


© differentiate between serial and random access files. 


& 
© write data onto serial and random access lules using FILE PRINT 


statements. 


* read data from serial and random access files using FILE READ 


statements. 


© use the following file commands with seria} and random access files. 


FILES — IFEND TP OY 


1. Files are used to store numeric data and string variables for use at any 
time. Up to now you have had to enter your fu(a using DATA statements 
as part of your program. Using files, you can enter and store large quantities 
of data using one program and then access the data af a later time using a 
different program. You can access the data or file with muny different aa 


programs, something you have becn unable to do before. 


One way to look at the file is to imagine that it js 2 separate item from 
the BASIC program. Programs are used to read from or write onto the file. 
In an application that uses a file to hold alt nanre and address informatian 
for the student body of a school, we might have 1 whole series of programs 


all using one file. 


PROGRAM 1 ENTER NEW DATA FOR STUDENT 

PROGRAM 2 DELETE STUDENT DATA ._ 

PROGRAM 3 CHANGE NAME OR ADORESS OR. 
PHONE 


PROGRAM 4 PREPARE NAME AND ADDRESS er FILE 


LABELS FROM FILE DATA 
PROGRAM 5 PREPARE ZIP CODE LISTING 
FROM FILE DATA 
PROGRAM 6 PREPARE PHONE LIST FROM 
FILE DATA 


What would you type to open the file 


EYESORE (too big) 
GRADEPOINT (‘oo big) 
IZERO’ (begins with a number) 
3 (begins with a number) 


up file words as follows, 
String variables — 


letters or spaces will use? 


String variable = 100 x 20 = 2000 characters 
= 2000 x 4 = 1000 words of file space 


A file that will contain 100 numbers will use: 


100 x 2 = 200 words 


(a) 140, 1S-character names 
(b) 140, 20-character addresses 


(c) 140, S-character zip codes (string variable) 


Before you RUN a'program using file commands you must crease a file 
using the system command OPEN, Since OPEN isa system command it docs 


Rules for name vary with dach system. Generally eny name beginning 

Fa with an aiphedetic character and not exceeding 6 alphanumeric charac 
tera is acceptable, It is 2 good ides to Use “reatonable™ names sa you 

> can Keep track of whatihey mest 4 file of master student informa 


tign might be called MASTER, 2 list of 


4... The amount of data (the number of pieces of data) that you can wale - 
onto the fll will depend on the size of the file. The size of the file will vary 
from computer fo computer. In some computers you determine the size of 
the file, In othesS, an opened file has a fixed size. (Consult your comput 
manus! to find 01+ how the file size is determined.) 8 : 
File size is measured in units called words. Data written ona file uses ~ 


Numeric vaniables— Each numeric variable uses 2 words of file space, 
, whether the number has one digit or more 

Each character of a string varable (akes approxi 

mately 44 word. 


Asan example, file that will contain 100 names, each with as many as 20 


Calculate how many words each of these sets of data will fill in a serial file. 


explaining” demonstration programs that 
showed or explained how they worked or 
what they did when RUN. But in some 
cases, a lot of time and space had to. be 
used to explain and teach that which would 
have been almost trivial if we could have 
assumed that the reader were seated at a 


. TTY or CRT. 


Another aspect of programmed instruction 
as a technique is the requirement of testing 
the instructional program, and revising and ~ 
retesting according to the problems and 
comments of the learner. If the student is 
unable to meet the objectives, that is, 
successfully complete the problems in the 
Self-Test at the end of each chapter, then 
the instructional sequence is atfault-and 
must be revised atvordingly. This isa 
process that can be extended indefimitely, 
but which is most often left out fas F 


discavered ichen working for a company 


that wrore PI under contract for big money) 
because it is time consuming and therefore 
expensive. Our testing was done primarily 
with high school students with no previous 
programming knowledge, on an individual 
basis with close observation and discussion, 
and later, in beginning computer workshops, 
We did not attempt to da the mass testing +. 
that PI theoreticians so dearly love. Pl, of 
course, derives from Skinner and the 
behaviorist psychologists, who often have 

a deformed bent for depersonalized stat- 
istical analysis of substantial data bases. 

The real world result is usually trivial- 
ization and the most boring, lack-luster 
instructional ordeal that’s possible. 


In contrast (again) to MY COMPUTER 
LIKES ME and PCC, the design of the 
book is quite plain and linear. The pub- 
lisher required that it follow the Self- 
Teaching Guides uninspired PI format, 

and Wiley’s editors were also responsible 


conversational asides, and ironic humor 
natural to the authors’ collective writing - 
style, I finally got the feeling that the ~ 
publishers wished the book to have Lowest 
Common Denominator appeal, like commer- 
cial TV, on the theory that it would broaden’ 
the sales potential. However, to give credit 
where credit is certainly due, Wiley editor” 
Irene Brownstone provided us with excep- 
tionally helpful suggestions and excellent _ 
detailed critiques of the various manuscript 
drafts and revisions, which definitely con- — 
tributed to the quality of the instruction. 


Another anonymous contributor who 
helped us put the finishing touches on the - 
manuscript as we were all running out of 
steam was Peter Lynn Sessions ( ‘you've 
seen his BASIC music ideas in PCC). He 
did the Final Self-Test and several end of 
chapter tests, as well as general helpful 
editing. By rights he should have received 
published mention. Likewise, Mary Jo  — 
Albrecht and Hal Hershey, who did the 
final photo-ready layout with a little help - 
from the authors, should have received 
published mention, 


We think this book is an excellent alter- 
native to MY COMPUTER LIKES ME 

for instructional situations where terminal 
access is limited or sporadic. It also goes — 
more deeply into BASIC than MCLM, and - 
includes a chapter on Advanced BASIC and 
strings and files. IT assign chapters to high | 
school kids to do before coming tothe 
People’s Computer Center workshops, and 
so far they have responded enthusiastically 
to the ease with which they get into pro- 


. gramming. We're looking forward to re- 


views, criticisms and comments from 
students and teachers on the content and 
good ways to use this book, and we hope 
to pass on such comments through the 
pages of PCC 


© The order of the names'In the FILES statement determines how they. 
are referenced Later in the program. The file named ZERO will now be ref- 
ecnced as fils 3 in the program. 


10 FILES ZER@ /ABLE. C100 


~~ Write a 


PHONE. 


10 FILES 


The general form 


For example: 


~ oan alga tt 


10 FILES 


7. You san abo 
statement. 


If ina previous sta 


6 Aseria file READ statement permits reading data from an exist 


will read one pitce of numeric data 
the:variable. A. 


In this case, Bhs fe named ZERO will he referenced as file 1. 
FILES statement that will pre| 
named GRADES and MASTER. 


Pare the computer to use files 


GRADES» MASTER 


ing file. 
is shown below: ee 


READ ¢ (file number) ; (variables) 


Note the punctuation 


£0. READ @15& 


fromthe first file in the FILES statement 


Will read two pieces of numericdata from the third file in the FILES state- 
ment-and assign them to variables A and B. 

1 Given the FILES statement, write a statement that will read three 
Aumeric variables from the file named ZERO. 


Py 


ABLE. C100, ZERO 


uss a calculated value for the file number ina file READ 


20 READ #Xs ASB 


tement, X has been calculated as equal to 2, the statement 


above will read from the second file in the FILES statement. The string 
variable (A$) and the numeric variable (B) will be read each time Line 20 is 


executed, 


10 FILES 


(d) 420 numbers (representing responses to an opinion poll. Responses 


One advantage of placing data into files instead of using DATA statements is 


You can access the data with more than one program. 


are 1,2, or 3.) 


(a) 140x 15 x 4= 1050 
(b) 140 x 20x %= 1400 
(c) 140% Sx %=350 
(d) 420 x 22840 


2 ~~ Later we will explain the use of serial files and random access files. 


This first section will deal only with serial files. 


Information stored in a serial file can be viewed as a continuous series 


of data packed densely in the computer memory. 
GEORGE/VOUNG/25/94191/BOB/HARRIS/42/83107/... 


Which file will be read in the following: 


PHONE, MASTER, ZER@ 


20 LET Y=3-1 
30 READ #Y3 AS.B 


MASTER 


5. At the beginning of a program that uses files you must include a state- 


The files statement looks like this: 


10 FILES ABLE, C100. ZERO 
\ 4 a 


To get to data in the middle of a serial file you must read from the beginning , 2 


“of the file, one piece of data at a time, until you reach the data you need. 


ment which tells the computer which files are to be used by the program. 


+ -- - 


BASIC 


By Albrecht, Finkel and Brown 
John Wiley and Sons, Inc. 
605 Third Avenue 


New York, N.Y. 10016 
325 pages, 1973. 
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@) Last time I talked about Edu 10 and Edu 20 and how to get from 
ae Edu 10 to Edu 20 and the cost of adding TTYs and stuff like that. 
p ° : This time Ill start by giving you a handy do-it-yourself kit consisting 


of excerpts from DEC’s price list. 


INST* MONTHLY 


ID # DESCRIPTION PRICE CHG MAINTENANCE 
) ( sf id PDP8E—BA Computer, 4K memory, TTY 4490 -- 60 
control 
( (> UW , S PDP8E—BE Computer, 8K memory, TTY 5650 -- 80 
: control 
MC8—E 4K memory. Required to 2750 150 20 
A : expand from 4K to 8K 
MM8—E 4K memory. This one gets 2500 150 . 20 
: you from BK to 12K or 
O.K. Here is how you build an Edu 10 or a one user Edu 20. from 12K to 16K 
MC8-—EJ 8K memory. Required to 4160 175 40 
Edu 10 One User Edu 20 expand from 4K to 12K 
© PDP8E—BA $4490 © PDPSE-BE $5650 MM8-—EJ 8K memory. Gets you from 3900 175 40 
Es trea ; pi © MI8_EF 500 ; 8K to os in one neat jump 
° LT33—-pc 1620 ° KP8—E 250 KP8-E Power fail/restart 250 60 2 
3. Sctwate 250 e LT33—pc 1620 MI8—EF Hardware bootstrap 500 60 5 
© Textbook Kit 100 e Edu 20 Software 250 LT33—DC Teletype Model ASR 33 1620 120 30 
$6960 © Textbook Kit 100 ; modified to work with PDP8 
$8370 KL8—E Interface card for TTY 300 60 10 


Now here are four ways to get a 4 TTY Edu 20 with 8K memory. “This is the charge for installing additional equipment on an existing system. 


(1) Buy an Edu 10 this year and next year expand to an 8K Edu 20 


with 4 TTYs. 

© Edu 10 ; 6960 

© MC8-E + installation 2750 + 150 

e KP8~—E + installation 250 + 60 

© 3LT33-DC + installation 4860 + 360 

¢ 3KL8-E + installation 900 + 180 

© Edu 20 software =. 
: d 15970 750 

Total cost $16720 


(2) Buy a one user Edu 20 with 8K this year — next year expand to 
4TTY’s. ' 


©. One user Edu 20 with 8K 8370 


© 3LT33-DC + installation 4860 + 360 

© 3KLB-E + installation 900 + 180. 

14130 540 
Total cost $14670 


Next — let’s look at more memory. First, suppose we buy a 16K 
Edu 20 with one TTY. 


(3) Buy a4 user Edu 20 with 8K this year. 


e Edu 20 with 8K and 1 TTY 8370 © PDP8E—EJ 5650 

e 3LT33—DC 4860 ° MM8-EJ 3900 

e 3KL8-E 900 © Hardware bootstrap 500 
Total cost $14130 © Power fail/restart 250 

e LT33-DC 1620 

(4) Buy an 8K Edu 20 with one TTY from DEC and buy 3 TTYs © Edu 20 software 250 
from someone else.* © Textbook kit 100 

© Edu 20with 8K and 1TTY —-8370 Totahoost #12270 


© 3TTYs from someone else* 3450 
© 3KL8—E from DEC 900 
Total cost $12720 


You can now add on TTYs — up to 8 of them with the 16K version of 
Edu 20. Or you may prefer using Edu 21 software which provides 
modest string capabilities. . 


We will, in turn, look at another way to get a 16K Edu 20 or Edu 21 
with one TTY. 


© Start with Edu 10 6960 4K 
© Add on things at later times 


SISOS 


$16720 $14670 $14130 $12720 KP8-E + installation 250 + 60 
MC8-E + installation 2750 + 150 8K 
*We got thisprice from Data Terminals Corporation. $1150 for anew ASR 33 MME=E + rnstalaee 2500 + 150 12K 
TTY modified so taht it will work on a PDP8E. Or you can get a rebuilt ASR 33 MM8-—E + installation 2500 + 150 16K 


for PDP8 from DTC for $850. For more information, contact Data Terminals 


Edu 20 or Edu 21 software _ 250 
Corporation, P.O. Box 5583, San Jose, CA. 95150. Phone (408)378-1112. 


15210 + 510. 


Total cost $15720 


Power fail detect and restart is handy! It 
keeps your software from getting wiped 
out during power failures or temporary 
brownouts or when someone trips over 
the power cord. You just restart when 
power is OK again — otherwise, you usu- 
ally have to reload the software, 


Pll leave other possibilities to you ~ like going from 4K to 12K then 
to 16K or from 4K to 8K then to 16K and so on. 


In the meantime, I’ll rest up for the next issue of PCC when Ill talk 
about EduSystem 25 and maintenance and .. . what do you want to 


know? Write a letter! 


THE BURKLE IS A BAPPY BEAST 


Hurkle? A Hurkle isa happy beast and lives in another galazy 
on a planet named Lirht that has three moons. Hurkle are 
favorite pets of the gwik, the dominant race of Lirthand... 
well, to find out more, read “The Hurkle is a Happy Beast" 

in a book called A WAY HOME by Theodore:Sturgeon, 
published by Pyramid Publications, 444 Madison Avenue, 
New York, NY 10022. (Unless they have moved since 
January, 1968.) 


Scared hwukles go invisble. 


VW took a snapohs 2 o happy 
sodiating huwrble , ee 


chick acarwod him and 2... 


188 REM eee HURKLE - PEOPLE*S COMPUTER COMPANY» MENLO PARKe CA 
118 RANDOM 

120 REM eee N IS THE NUMBER OF GUESSES ALLOWED 
130 LET Nw5 

140 PRINT "DO YOU WANT THE RULES CI*YES @=NO)"™3) 
tse INPUT Z 

160 IF Z <> |} THEN 490 

178 REM eee HERE ARE THE RULES 

16G PRINT “A HURKLE IS HIDING IN A GRIDs LIKE THE ONE BELOW.” 
198 PRINT 

2a@ PRINT 

216 PRINT TAS(26)s"NORTH” 

228 PRINT 

238 FOR K=9 TO @ STEP -1 

248 #IF K <> 4 THEN 270 

258 PRINT TAB(B) 3s" WEST AN STAB(2B)3"%2 2 2 ew ew we ww East" 


| Pehang 


268 GOTO 280 

270 PRINT TABCI4)SKITAB(EO DI. « © 6 0 ow ww ow 
260 NEXT K 

298 PRINT 

3866 PRINT TABC(200"8 12345678 9" 

318 PRINT 

320 PRINT TAB(26)s"SOUTH” 

330 PRINT 


348 PRINT “TRY TO GUESS WHERE THE HURKLE IS HIDING. YoU GUESS" 
35@ PRINT “BY TELLING ME THE GRIDPOINT WHERE YOU THINK THAT" 
368 PRINT "THE HURKLE IS HIDING. HOMEBASE IS POINT 0,0 IN" 
378 PRINT “THE SOUTHWEST CORNER. YOUR GUESS SHOULD 3E A PALA" 
360 PRINT “OF WHOLE NUMBERS, SEPARATED BY A COMMA. THE FIRST" 
390 PRINT "NUMBER TELLS HOW FAR TO THE RIGHT OF HOMEBASE AND" 
480 PRINT "THE SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU" 
41@ PRINT “THINK THE HURKLE IS HIDING. FOR EXAMPLE» IF YOU " 
420 PRINT “THINK THE HURKLE IS 7 TO THE RIGHT AND 5S ABOVE" 
438 PRINT “HOMEBASE, YOU ENTER 745 AS YOUR GUESS AND THEN" 
443° PRINT “PRESS THE ‘RETURN KEY. AFTER EACH GUESS, 1 WILL" 
450 PRINT "TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOUR" 
468 PRINT “NEXT GUESSe GOOD LUCK!" 

470 PRINT 

480 REM ¢e* HURKLE ‘PICKS A GRIDPOINT AND HIDES 

498 LET AsINTC(1A¢RND(O)? 

500 LET BeINTCI@*RND(O)> 


$16 PRINT 
$20 PRINT "THE HURKLE IS HIDING ~ YOU GET" SNs"GUESSES TO FIND HIMe™ 
5338 PRINT 


$48 REM s#e GET A GUESS AND PRINT INFO FOR PLAYER 
558 FOR K=l TON 

566 PRINT “WHAT IS YOUR GUESS" s 

578 INPUT XsY 

56@ IF ABS(X-A)+ABSCY-8)50 THEN 710 

598 REM ee GO TO INFO SUBROUTINE 

688 GOSUS 768 


618 PRINT 
620 NEXT K 
638 PRINT 


648 REM ee@ HURKLE WAS NOT FOUND IN N GUESSES 

658 PRINT “SORRY» THAT'S" 3NS"GUESSES." 

660 PRINT “THE HURKLE IS AT "3A3's"3B 

678 PRINT 

686 PRINT “LET'S PLAY AGAIN." 

698 GOTO 498 

786 REM *¢* HURKLE HAS BEEN FOUND! 

718° PRINT 

728 PRINT “YOU FOUND HIM IN“Ks"GUESSESIII” 

738 PRINT "LET'S PLAY AGAIN." 

748 «GOTO 498 

758 REM ¢¢¢ SUBNOUTINES PRINT INFORMATION FOR NEXT GUESS 
768 PRINT “GO ") 
778 «IF Y2B THEN 628 
788 «#IF Y<B THEN 8198 
7198 PRINT “SOUTHS 
886 GOTO 420 

818 PRINT “NORTH'S 
628 IF KsA THEN 870 
838 IF X<A THEN bAU 
B40 PRINT “WEST'S 
858 GOTO 87 

868 PRINT “FAST"'S 
670 PRINT 

860 RETURN 

698 END 


320+ 10-630 
030 - 40°20 


-- Cha 98 Nery 


RUN 
DO YOU WANT THE RULES ¢1=sYES @=NOD?7 1 415 
A HURKLE IS HIDING IN A GRID» LIKE THE ONE BELOW. ant [' 
NORTH - 
9 eres. . se 
8 &; au acaba le peciatas: teers 
7 '— 2s e © ee we we ww 
& oe emo, ae ea 
bj ee © = © © © eX 
WEST 4 wee eee we ee) «EAST 
3 eee es es ee wes 
2 eee ee ee eee 
1 eee eae woe eee 
r) See 2 0 pe marie 
@123456789 
SOUTH 


TRY TO GUESS WHERE THE HURKLE [S HIDING. YOU GUESS 
BY TELLING ME THE GRIOPOINT WHERE YOU THINK THAT 
THE HURKLE IS HIDING. HOMEBASE 1S POINT 629 IN 
THE SOUTHWEST CORNER. YOUR GUESS SHOULD BE A PAIR 
OF WHOLE NUMBERS» SEPARATED BY A COMMA. THE FIRST 
NUMBER TELLS HOW FAR TO THE RIGHT OF HOMESASE AND 


THE SECOND NUMBER TELLS HOW FAR ABOVE HOMEBASE YOU 


THINK THE HURKLE IS HIDINGe FOR EXAMPLE» IF YOU 


THINK THE HURKLE IS 7 TO THE RIGHT AND 5 ADOVE 

HOMEBASE. YOU ENTER 725 AS YOUR GUESS AND THEN 

PRESS THE ‘RETURN’ KEYs AFTER EACH GUESSs I WILL 

TELL YOU THE APPROXIMATE DIRECTION TO GO FOR YOUR 

NEXT GUESS. GOOD LUCKI yes 


THE HURKLE IS HIDING = YOU GET 5S GUESSES TO FIND HIMe 


WHAT IS YOUR GUESS? 55 
GO NORTHWEST 


WHAT IS YOUR GUESS? 327 
GO SOUTH 


WHAT IS YOUR GUESS? 3.6 y! 
pk 


YOU FOUND HIM IN 3 GUESSESII! 
LET*S PLAY AGAINe 


THE HURKLE IS HIDING = YOU GET S GUESSES To FIND Hite 


WHAT IS YOUR GUESS? TU gui, . 
While p, 
" ahe 

ad, 


Change the game — 


e First number is distance above and 
second number is distance to the 

- right of homebase 

¢ Longitude and latitude? 

e Number the grid in rows and 
columns, like this 


NORTH 


12345678910 


1 . . e e e e e e e . 
2 e e . e e e e e e ° 
3 e e e e e e e s e e 
4 e e ° e e “ s e e e 
5 ° e e e . e e . e e 
WEST : oe ee © © © @ @ EAST 
8 a e e e e e . e : é 
9 e e e e e e e e e e 
10 s . e ° e e ° e e e 
; SOUTH 
if you wish) 


wi 


TA - fee 


' 


E MED 


4 
i) 
i 


TH 


’ 


QVER 


rus 


LOOKING 


THINKING OF BUILDING A DOME? 


and actual radius of your proposed icosa- 


_ Be sure to enclose $1 and a 


Orawing by ARTHURBEAGER (Reprinted from WORKFORCE, Jan-Feb, 1973) 


TMPRINTIBGE 


After you’ve read DOMEBOOK II ($4 from 
Shelter Publications, Box 279, Bolinas, CA. 
94924), you can have a computer do or 

check your calculations. Send the frequency 


alternate breakdown (not triacon) dome 
to Resourse One, 1380 Howard, San Fran- 
cisco, CA 94103, and they will send you 
“lengths of struts 
“the axial angles 
“the central angles 
“the dihedral angles 
“the spherical angles 


Dihedral angle 
between panels [f 


stamped self-addresses envelope. a 
A 
i NW ZAIN 


J frequency 


aface of the icosa. 
x = axial angle 


Name That Hit Tune! 
But Computer Can’t 


HOLLYWOOD, Calif. - Computers can 
create music, but they cannot determine 
what makes a hit record, according to 
Allen D: Allen. 

Allen, a composer and a research scien- 
tist, worked extensively with computers 
trying to find technical parallels among 
© hit songs. 

“Initially I tried to find a cortelation 
between melodies I like,” Allen said. 

“T took all the tunes — the chord struc- 
tures, tendency toward intervals, surprise, 
tempo, time signatures and all the other 
elements. There was’ absolutely no cor- 
telation between the songs I like. So 1 
= thought that maybe I’m weird. 


‘S © 02160 © TELEPHONE (617) 332 


MASSACHUSE 


COMPUTERWORLD 


THE NEWSWEEKLY FOR THE COMPUTER COMMUNITY 


EET, NEWTON. 


VA x % computer. This was to find what hit 
< records had in common. We used all the 
NZ, Esame factors (as for tunes) plus tone 
* colors, instrumentations, lyrics, bottom 
or high end, etc. We could find abso- 
lutely no mathematical formula for a 
pleasing melody or a big-selling disk.” 


%) 


Nia 


Joe and Robin the day they finished the frame for their 
dome. They built a two story house, the second story 
being a 30’ diameter 4-frequency dome with a 3/8 
slecping loft inside. From Jerry Brown’s DOMEFILM, 

a 16mm color film documentary on dome building. 
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z “Then we did a study with an IBM 1130 
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A WAY “TD STORE 4 RETRIEVE INFORMATION 


THIO lo A SARE TEGHNIQUE FR FRND, (RDS REFFRENUNG 
AND REIREVING NETRMAINL TT 2 DAED CN AN ae 
ONTLE PRINUPE ILLUSTRATED W THe FIRE Eriol. ll 
Ag WIRE [6 LIF|ED. The t¢tauo 4 FORTH Gado MLL fA OF. 
IF WE tut CW) HAD een Sor Quy IN aeDs Wit OPS 
OR BREAD WRHTEN ON HEM, THE CHERATION WWD Hue FPARATED 
THE BREAD FELIES FRO THE REoT. THE MAIN 4DUNTAE 
STEM, [6 THAT NE CAR BASIL CKD% REFERENCE 'NACRMATUN. 
PAMPLE IF SOT Wd KEEN OF WOE He HET HAE DN 

THAT FD RELIES Wi Noo et CHE ME oT 
RESUTED IN ULF RE NC PREADS SEIN 
Us “THAT YY TYRE CF INEAMATIN THAT Ju! GE WAITER OL 
SUD 46 EULEYED “TERM Ho “HHMI ATO 
CONERN fon KEEPING THE GRD> IN ORDER. 


CW 


A 


eiigarnen Lid eeiieraeener iit 


rr22222222 


= 


AuYuuries 


Here Mee Smee PRES MED OL TWO PRUIURE, BOT Tey He FM EvPeNove. [D4 CARDS 

‘We Ce PEAT AWARE 4 SAN PNUD AT YOUR LolAL (OMPURTION CenTEe. 
ae Vide am Ie . mien Vee ak te an BL AS GAHes , OS STRIN INFAU4ATION 
ON UA RENIWES TL lexRAL AEA TC. (FELD CLE SFR TIME | AUK THE WIZE IN 
4 AL THE GID FAL IT. MAE Yow WL To. Wns 


NY From = de Schoo] rimer no, 7 


Ze phyros Materials Exchanee. 
oe JStanyan St, d 


San Francisco CA F4NNT 


MEDIA MIX 


An interesting newsletter entitled Media Mix: 
Ideas and Resources for Educational Change 
recently shuffled its way to the surface of the 
mess on my desk. It carries interesting reviews 
on films, filmstrips, publications and other items. 
Media Mix is published monthly, October to 

May at 145 Brentwood Dr., Polatine, I11.,60067 
by Jeffery Schrank. One year.subscription is 

$5, two year $9. Here is a sample item: 


Lifestyle 2000: Inquiry into the Future 
. +». Schools are only beginning to 
Tecognize that a study of the future is a 
valid part of the curriculum. In response 
to this recognition a few companies are 
producing media material about the 
future. One of the best to come along 
so far is the Denoyer-Geppert filmstrip 
Lifestyle 2000. The sound filmstrip is in 
four parts, each about 80-frames in 10 
minutes. Each consists of an interview 
with a futurist-Hugh Downs, Paolo 
Soleri, Herman Kahn and Ray Brad- 
bury. The four segments, however, are 
economically placed on two rolls of 
film. The Hugh Downs segment pro- 
vides a gentle and general introduction 
to the study of the future paving the 
way for the mind-blowing ideas of 
Paolo Soleri. Soleri works mostly 

with young people in Arizona building 
his city of the future-a gigantic single 
building that serves as a total environ- 
ment. Herman Kahn talks of knowledge 


29 ne 


e 


\ 
\ 


Guindon 


“Any people anywhere, being inclined and having the 
Power, have the right to rise up, and shake off the existing 
government, and form a new one that suits them better. 
This is a most valuable, a most sacred right--a right, which 
we hope and believe, is to liberate the world.” 

Abraham Lincoln 


Wounded Kye Measacre 


and the ability to control the future and 
Ray Bradbury delivers a kind of pep 
talk encouraging optimism. 

$30.60 from Denoyer-Geppert, 5235 
Ravenswood Ave., Chicago, IL 60640. 
Also ask for their rapidly growing cata- 
log of filmstrips. 


anny 1293 


send check or money order to: People’s Computer Company 
BO. Box 310 
jf 
| ee Menlo Park,Ca 94025 


ZIP 
What kind of computer do you use? 


9f- subscriptions start with 1st issue of school year 


$4 for 5 issues 
($5 Canada & overseas) 
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